Public Class Form1
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As
System.EventArgs) Handles Button1.Click
Dim
login As String
= Me.TextBox1.Text.ToUpper
Dim
clave As String
= TextBox2.text
If
login = "VB" And clave.ToUpper = "NET"
Then
MessageBox.Show("Usuario Válido", "Mensaje",
MessageBoxButton.OK,
MessageBoxIcon.Information)
Else
MessageBox.Show("Usuario
no Válido", "Mensaje",
MessageBoxButton.OK,
MessageBoxIcon.Error)
End If
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal
e As
System.EventArgs) Handles Button2.Click
If
MessageBox.Show("Desea Salir?", "Confirmar",
MessageBoxButtons.YesNo, MessageBoxIcon.Question)
= Windows.
Forms.DialogResult.Yes Then
REM Cierra el form
Me.Close() 'cierra
End If
End Sub
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal
e As
System.EventArgs) Handles Button3.Click
MessageBox.Show("Ingrese su login password", "Mensaje",
MessageBoxButtons.OK,
MessageBoxIcon.Information)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal
e As
System.Windows.Forms.FormClosingEventArgs) Handles
Me.FormClosing
If
MessageBox.Show("Desea Salir?", "Confirmar", MessageBoxButtons.YesNo,
MessageBoxIcon.Question) = Windows.
Forms.DialogResult.No Then
e.Cancel
= True
End If
End Sub