Public Class PasswortabfrageLogin
    Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
        If TxtPasswort.Text = "BmWr501956" Then
            Main.Show()
            Me.Close()
        Else
            MsgBox("Nein, das war falsch!")
            Application.Exit()
        End If
    End Sub
End Class