Version 2.4.4.1

EnvelopeGenerator.Form/My Project/AssemblyInfo.vb

@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Envelope Generator")>
 <Assembly: AssemblyCopyright("Copyright © 2024")>
-<Assembly: AssemblyTrademark("2.4.4.0")>
+<Assembly: AssemblyTrademark("2.4.4.1")>
 <Assembly: AssemblyCulture("")>
 
 ' Setting ComVisible to false makes the types in this assembly not visible 
@@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 ' [assembly: AssemblyVersion("1.0.*")]
-<Assembly: AssemblyVersion("2.4.4.0")>
+<Assembly: AssemblyVersion("2.4.4.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

EnvelopeGenerator.Form/frmSplashScreen.vb

@@ -106,16 +106,15 @@ Public Class frmSplashScreen
     End Sub
 
     Private Sub Worker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles Worker.RunWorkerCompleted
+        Try
             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)
-            Application.Exit()
+                Throw e.Error
             End If
 
             Dim oState As State = DirectCast(e.Result, State)
 
             Dim oCultureInfo As CultureInfo
-        oCultureInfo = New CultureInfo(oState.user.Language)
+            oCultureInfo = New CultureInfo(oState.User.Language)
             Thread.CurrentThread.CurrentCulture = oCultureInfo
             Thread.CurrentThread.CurrentUICulture = oCultureInfo
             CultureInfo.DefaultThreadCurrentCulture = oCultureInfo
@@ -137,6 +136,11 @@ Public Class frmSplashScreen
 
             ' 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 Try
     End Sub