Public Class PasswortabfrageLogin
    Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click


        If TxtPasswort.Text = "BmWr501956" Then
            Dim main As New Main
            main.picAVISOMessenger.Enabled = False
            main.picAVISOMessenger.Visible = False
            main.Show()
            Me.Close()
        Else
            MsgBox("Nein, das war falsch!")
            Application.Exit()
        End If
    End Sub

    Private Sub TxtPasswort_Enter(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TxtPasswort.KeyDown
        If e.KeyCode = Keys.Enter Then
            CmdLogin.PerformClick()
        End If
    End Sub
End Class