MS 1 GV AppServer

app/DD_Clipboard_Searcher/frmSplash.vb

@@ -32,7 +32,7 @@ Public NotInheritable Class frmSplash
         Return _step * (100 / InitSteps)
     End Function
 
-    Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
+    Private Async Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task
         Try
             Dim Init = New ClassInit()
             Worker.ReportProgress(CalcProgress(1), "Initializing Logger")
@@ -48,7 +48,7 @@ Public NotInheritable Class frmSplash
                 Thread.Sleep(200)
 
                 Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
-                If ClassInit.InitUserLogin = False Then
+                If Await Init.InitUserLogin = False Then
                     If ERROR_INIT = "" Then
                         ERROR_INIT = "INVALID USER"
                     End If
@@ -63,7 +63,7 @@ Public NotInheritable Class frmSplash
         Catch ex As Exception
             MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-    End Sub
+    End Function
 
     Private Sub bw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
         pbStatus.Value = e.ProgressPercentage