Start 2

Dokumentation/Login/PasswortabfrageLogin.vb

@@ -0,0 +1,11 @@
+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