neu

Aviso/frmLogin.vb

@@ -14,7 +14,7 @@ Public Class frmLogin
     Private ADMIN As New cADMIN
     Public firma As String = "VERAG"
 
-
+    Dim SECRET = False
     Public Sub New()
         InitializeComponent()
         Icon = cMeineFunktionenAVISO.GetProgrammIcon
@@ -137,12 +137,14 @@ Public Class frmLogin
             Me.Hide()
             Me.WindowState = FormWindowState.Minimized
             Exit Sub
+        ElseIf PARAM = "SECRET" Then
+            SECRET = True
+
         End If
 
+        initstart(False)
 
 
-        initstart()
-
 
 
         Try
@@ -156,7 +158,7 @@ Public Class frmLogin
     End Sub
 
 
-    Sub initstart()
+    Sub initstart(Optional secret = False)
         picLogin.Size = New Size(picLogin.Width, 50)
         Select Case firma
             Case "VERAG"
@@ -330,6 +332,11 @@ Public Class frmLogin
         cGlobal.AngemeldeterUser = cGlobal.AktiverMitarbeiter.Mitarbeiter
         AnmeldungOK = True
 
+        'Secret Anmeldefenster
+        If SECRET Then
+            Dim frm As New frmSecretAviso
+            frm.Show()
+        End If
     End Sub
 
     Private Sub AdminLoginOK()
@@ -547,4 +554,6 @@ Public Class frmLogin
         initstart()
     End Sub
 
+
+
 End Class