Dim frm As New Form1
frm.ShowDialog

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles OK.Click
        Dim name, passwort As String
        name = "x"
        passwort = "y"
 
        If UsernameTextBox.Text = name And PasswordTextBox.Text = passwort = _
          True Then
            GoTo<From1.vb></From1.vb>
            MessageBox.Show("Anmeldung erfolgreich", "Ruhige Schicht auf der" & _
              "Leitstelle")
 
        Else
            MessageBox.Show("Ihre Anmeldung war nicht erfolgreich", "Überprüfen" & _
              "Sie die Eingabe Ihres Benutzernamen und Ihres Passworts")
 
        End If
 
 
 
    End Sub

PasswordTextBox.Text = passwort = True

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de