Version 2.0.0.3

Global_Indexer/frmStart.vb

@@ -238,7 +238,6 @@ Public Class frmStart
 
     Sub Check_Dropped_Files()
         Try
-            Me.TopMost = False
             ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
             Dim i As Integer
             For Each Str As Object In ClassFileDrop.files_dropped
@@ -282,17 +281,18 @@ Public Class frmStart
                 MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
             End If
         End Try
-        Me.TopMost = True
     End Sub
 
     Sub Open_IndexDialog()
         Try
-            Me.Hide()
-            Me.TopMost = False
+            Hide()
             frmIndex.Show()
-            Me.Visible = True
-            Me.TopMost = True
-            Me.BringToFront()
+
+            AddHandler frmIndex.FormClosed, Sub()
+                                                Show()
+                                                BringToFront()
+                                            End Sub
+
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox(ex.Message, MsgBoxStyle.Critical)
@@ -564,14 +564,12 @@ Public Class frmStart
             Load_Hotkeys()
             Me.Visible = True
         End If
-
-
     End Sub
 
     Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click
         Me.Hide()
         frmAdministration.ShowDialog()
-        Me.Visible = True
+        Me.Show()
     End Sub
 
     Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click