diagrama de flujo

                      
               DIAGRAMA DE FLUJO

Public Class Form1

Private Sub Button1_Click ( ByVal remitente como System.Object, ByVal

e como System.EventArgs) Handles Button1.Click

Dim inicio de sesión como cadena = Me . TextBox1.Text.ToUpper

Dim clave como cadena = TextBox2.text

Si login = "VB" Y clave.ToUpper = "NET" Entonces

MessageBox.Show ( "Usuario Válido" , "Mensaje" ,

MessageBoxButton.OK, MessageBoxIcon.Information)

Más

MessageBox.Show ( "Usuario no valido" , "Mensaje" ,

MessageBoxButton.OK, MessageBoxIcon.Error)

Fin Si

End Sub

Private Sub Button2_Click ( ByVal remitente como System.Object, ByVal

e como System.EventArgs) Handles Button2.Click

Si MessageBox.Show ( "Salir DESEA?" , "Confirmar" ,

MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.

Forms.DialogResult.Yes Entonces

REM Cierra el formulario

Me . Close () 'Cierra

Fin Si

End Sub

Private Sub Button3_Click ( ByVal remitente como System.Object, ByVal

e como System.EventArgs) Handles Button3.Click

MessageBox.Show ( "Ingrese contraseña de inicio de sesión su" , "Mensaje" ,

MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

Private Sub Form1_FormClosing ( ByVal remitente como objeto , ByVal

e Como System.Windows.Forms.FormClosingEventArgs) Manijas

Me . FormClosing

Si MessageBox.Show ( "Salir DESEA?" , "Confirmar" , MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.

Forms.DialogResult.No Entonces

e.Cancel = True

Fin Si

End Sub