Fix Init

EnvelopeGenerator.Form/frmSplashScreen.vb

@@ -106,37 +106,41 @@ Public Class frmSplashScreen
     End Sub
 
     Private Sub Worker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Worker.RunWorkerCompleted
-        If e.Error IsNot Nothing Then
-            Logger.Error(e.Error)
-            MsgBox("Fehler beim Initialisieren: " & e.Error.Message & vbNewLine & vbNewLine & e.Error.StackTrace, MsgBoxStyle.Critical, Text)
+        Try
+            If e.Error IsNot Nothing Then
+                Throw e.Error
+            End If
+
+            Dim oState As State = DirectCast(e.Result, State)
+
+            Dim oCultureInfo As CultureInfo
+            oCultureInfo = New CultureInfo(oState.User.Language)
+            Thread.CurrentThread.CurrentCulture = oCultureInfo
+            Thread.CurrentThread.CurrentUICulture = oCultureInfo
+            CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
+            CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo
+
+            If oState.User.HasAccess = False Then
+                Throw New ApplicationException("User is not activated for this module. Please contact your administrator. Application will close!")
+            End If
+
+            If Not String.IsNullOrEmpty(oState.DbConfig.ExternalProgramName) Then
+                Text = oState.DbConfig.ExternalProgramName
+            End If
+
+            ' Hide splashscreen
+            Hide()
+
+            Dim oForm As New frmMain(oState)
+            oForm.ShowDialog()
+
+            ' Close this form after frmMain is closed
+            Close()
+        Catch ex As Exception
+            Logger.Error(ex)
+            MsgBox("Fehler beim Initialisieren: " & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, MsgBoxStyle.Critical, Text)
             Application.Exit()
-        End If
-
-        Dim oState As State = DirectCast(e.Result, State)
-
-        Dim oCultureInfo As CultureInfo
-        oCultureInfo = New CultureInfo(oState.user.Language)
-        Thread.CurrentThread.CurrentCulture = oCultureInfo
-        Thread.CurrentThread.CurrentUICulture = oCultureInfo
-        CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
-        CultureInfo.DefaultThreadCurrentUICulture = oCultureInfo
-
-        If oState.User.HasAccess = False Then
-            Throw New ApplicationException("User is not activated for this module. Please contact your administrator. Application will close!")
-        End If
-
-        If Not String.IsNullOrEmpty(oState.DbConfig.ExternalProgramName) Then
-            Text = oState.DbConfig.ExternalProgramName
-        End If
-
-        ' Hide splashscreen
-        Hide()
-
-        Dim oForm As New frmMain(oState)
-        oForm.ShowDialog()
-
-        ' Close this form after frmMain is closed
-        Close()
+        End Try
     End Sub