MS Admin Globix

GUIs.ZooFlow/frmFlowForm.vb

@@ -47,6 +47,7 @@ Public Class frmFlowForm
     ' Runtime Variables
     Private ESCHitCount As Integer = 0
     Private IndexForm As frmGlobix_Index
+    Private AdminForm As frmAdmin_Start
     Private Const mSnapOffset As Integer = 35
     Private Const WM_WINDOWPOSCHANGING As Integer = &H46
 
@@ -468,7 +469,15 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        AdminForm = New frmAdmin_Start()
+
         frmAdmin_Start.Show()
+        If TimerCheckActiveForms.Enabled = False Then
+            TimerCheckActiveForms.Enabled = True
+        End If
+
+        Me.Cursor = Cursors.Default
     End Sub
 
     Private Sub frmFlowForm_DragEnter(sender As Object, e As DragEventArgs) Handles MyBase.DragEnter
@@ -518,7 +527,7 @@ Public Class frmFlowForm
     End Function
     Private Function FormLoaded_Visible() As Boolean
         For Each frm As Form In Application.OpenForms
-            If frm.Name.Equals("frmSearchStart") Or frm.Name.Equals("frmGlobix_Index") Then
+            If frm.Name.Equals("frmSearchStart") Or frm.Name.Equals("frmGlobix_Index") Or frm.Name.Equals("frmAdmin_Start") Then
                 Me.Visible = False
                 Exit Function
             End If