Layout, ImEx

Aviso/frmLogin.vb

@@ -489,9 +489,18 @@ Public Class frmLogin
         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO"
         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion 'My.Resources.Version2
         VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
-        frmHauptfenster.Show()
-        frmHauptfenster.Visible = True
-        frmHauptfenster.WindowState = FormWindowState.Maximized
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then
+
+            frmHauptfensterNew.Show()
+            frmHauptfensterNew.Visible = True
+            frmHauptfensterNew.WindowState = FormWindowState.Maximized
+        Else
+
+            frmHauptfenster.Show()
+            frmHauptfenster.Visible = True
+            frmHauptfenster.WindowState = FormWindowState.Maximized
+        End If
+
         cGlobal.AktiverMitarbeiter = ADMIN.cMitarbeiterAVISO
         'Me.Close()
         Me.Hide()
@@ -748,4 +757,9 @@ Public Class frmLogin
     Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
 
     End Sub
+
+    Private Sub NewLoginToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewLoginToolStripMenuItem.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = True
+        btnOK.PerformClick()
+    End Sub
 End Class