Private Sub ar()
        With Read
            If .Read Then
                'Meldung
                MessageBox.Show("Erfolgreiche Anmeldung!", "Info!", _
                  MessageBoxButtons.OK, MessageBoxIcon.Information)
 
                clsForm.F2 = New Form2
                clsForm.F2.Show()
               Me.Hide()
 
           Else
                Plus += 1
 
                If Plus >= 3 Then
                    'Meldung
                    MessageBox.Show("Sorry, zu viele Fehler!", _
                             "Passwort", MessageBoxButtons.OK, _
                               MessageBoxIcon.Exclamation)
                    'Anwendung schließen
                    End
                Else
 
                    TextBox1.Clear()
                    TextBox2.Clear()
 
                    'Meldung
                    MessageBox.Show("ungültiger Benutzer Name oder Passwort!", _
                               "Passwort", MessageBoxButtons.OK, _
                             MessageBoxIcon.Error)
                End If
            End If
           TextBox1.Focus()
        End With
    End Sub

VB@rchiv its the Best