MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -151,6 +151,9 @@ Public Class frmFlowForm
         Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
         oForm.Show()
         Cursor = Cursors.Default
+        If TimerCheckActiveForms.Enabled = False Then
+            TimerCheckActiveForms.Enabled = True
+        End If
     End Sub
     Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
         PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO
@@ -227,6 +230,18 @@ Public Class frmFlowForm
         Next
 
     End Function
+    Private Function FormLoaded_Visible(ByVal pFormName As String) As Boolean
+
+
+        For Each frm As Form In Application.OpenForms
+            If frm.Name.Equals(pFormName) Then
+                Me.Visible = False
+                Exit Function
+            End If
+        Next
+        Me.Visible = True
+        TimerCheckActiveForms.Enabled = False
+    End Function
 
     Private Sub UserKonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UserKonfigurationToolStripMenuItem.Click
 
@@ -235,4 +250,9 @@ Public Class frmFlowForm
     Private Sub DatenbankverbindungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenbankverbindungToolStripMenuItem.Click
         frmConfigDatabase.ShowDialog()
     End Sub
+
+    Private Sub TimerCheckActiveForms_Tick(sender As Object, e As EventArgs) Handles TimerCheckActiveForms.Tick
+        FormLoaded_Visible("frmSearchStart")
+        If Me.Visible = False Then Exit Sub
+    End Sub
 End Class