Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        If textbox1.Text = "Password" Then
            MsgBox("everything is ok", MsgBoxStyle.Information)
            form2.Show() 'Möglichst keine Default-Instanzen nutzen!!
            Me.Hide()
        Else
            If MsgBox("Close", MsgBoxStyle.YesNo) = _
                Windows.Forms.DialogResult.Yes Then Me.Close()
        End If
    End Sub
 
End Class