Diseño de Formulario

Public Class
 Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.
LoadEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
          Dim login As String = Me.TextBox1.Text.ToUpper
          Dim clave As String = TextBox2.TextIf login = "VB" And clave.ToUpper = "NET" ThenMessageBox.Show("Usuario Vlido", "Mensaje", MessageBoxButtons.OK,MessageBoxIcon.Information)
       Else
                     MessageBox.Show   ("Usuario no Vlido", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Error) 
  End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
        If MessageBox.Show("Desea salir?", "Confirmar", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes ThenREM Cierra el formMe.Close()
   End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
          MessageBox.Show("Ingrese su login y password", "Mensaje", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e AsSystem.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

End Class