MS Vektrortype > 4095 und neue dlls GDPicture inkl Runtime dll

Global_Indexer/frmStart.vb

@@ -46,9 +46,17 @@ Public Class frmStart
 
         Cursor = Cursors.WaitCursor
         Try
-            IndexForm = New frmIndex()
-            FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
+            LOGGER.Debug("frmStart_Load ...")
+            Try
+                IndexForm = New frmIndex()
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                LOGGER.Warn("Error while initializing frm Index ...")
+            End Try
 
+            LOGGER.Debug("Load frmIndex ready")
+            FileDrop = New FileDrop(LOGCONFIG, "fileFLOW")
+            LOGGER.Debug("Load FileDrop ready")
             'Lizenz abgellaufen, überprüfen ob User Admin ist
             If LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
                 If USER_IS_ADMIN = True Then
@@ -91,7 +99,7 @@ Public Class frmStart
                 buttonAdmin.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
             DATABASE_ECM.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
-
+            LOGGER.Debug("Load almost ready, now Config ...")
             If CONFIG.Config.MyFormsDesign <> "" Then
                 UserLookAndFeel.Default.SetSkinStyle(CONFIG.Config.MyFormsDesign)
             End If
@@ -100,6 +108,8 @@ Public Class frmStart
 
         Catch ex As Exception
             MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Error(ex)
+
         End Try
         Cursor = Cursors.Default
     End Sub