deprecate My.Settings

Global_Indexer/frmStart.vb

@@ -300,30 +300,28 @@ Public Class frmStart
     End Sub
 
     Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        If My.Settings.AppTerminate = False Then
-            Try
+        Try
 
-                LOGGER.Info("")
-                If START_INCOMPLETE = False Then
-                    Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
-                    ClassDatabase.Execute_non_Query(Sql, True)
-                End If
-                ClassWindowLocation.SaveFormLocationSize(Me)
-            Catch ex As Exception
-                MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End Try
-            If USER_ID > 0 Then
-                Unregister_Hotkeys()
+            LOGGER.Info("")
+            If START_INCOMPLETE = False Then
+                Dim Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
+                ClassDatabase.Execute_non_Query(Sql, True)
             End If
-            'TempDateien löschen
-            Try
-                For Each _file In TEMP_FILES
-                    System.IO.File.Delete(_file)
-                Next
-            Catch ex As Exception
-
-            End Try
+            ClassWindowLocation.SaveFormLocationSize(Me)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+        If USER_ID > 0 Then
+            Unregister_Hotkeys()
         End If
+        'TempDateien löschen
+        Try
+            For Each _file In TEMP_FILES
+                System.IO.File.Delete(_file)
+            Next
+        Catch ex As Exception
+
+        End Try
     End Sub
 
     Public Sub New()
@@ -338,9 +336,6 @@ Public Class frmStart
     End Sub
 
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If My.Settings.AppTerminate = True Then
-            Exit Sub
-        End If
         'Me.TransparencyKey = Color.Transparent
         ' Me.BackColor = Color.Transparent
         Cursor = Cursors.WaitCursor
@@ -709,9 +704,6 @@ Public Class frmStart
         End If
     End Sub
     Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If My.Settings.AppTerminate = True Then
-            Me.Close()
-        End If
         ' SetLanguage()
         If START_INCOMPLETE = True Then
             If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then
@@ -734,7 +726,6 @@ Public Class frmStart
         Catch ex As Exception
             Me.btnChoosefiles.Location = New Point(269, 37)
         End Try
-
     End Sub
     Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
         frmHistory.ShowDialog()