Visual Basic
If (TextBox2.Text = ") Then
Form2.Show()
Me.Hide()
Else
MsgBox("contraseña incorrecta", MsgBoxStyle.Critical)
TextBox2.Text = "
TextBox2.Focus()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Usted decidio salir", MsgBoxStyle.Information)
Close()