Chat etc.

Dokumentation/Login/PasswortabfrageLogin.vb

@@ -1,11 +1,22 @@
 Public Class PasswortabfrageLogin
     Private Sub CmdLogin_Click(sender As Object, e As EventArgs) Handles CmdLogin.Click
+
+
         If TxtPasswort.Text = "BmWr501956" Then
-            Main.Show()
+            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