fix first call of EDMIService

This commit is contained in:
Jonathan Jenne
2020-12-17 16:26:14 +01:00
parent 73679224f8
commit 448410fb29
6 changed files with 32 additions and 10 deletions

View File

@@ -32,7 +32,7 @@ Public NotInheritable Class frmSplash
Return _step * (100 / InitSteps)
End Function
Private Async Function bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) As Task
Private 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 Await Init.InitUserLogin = False Then
If Init.InitUserLogin = False Then
If ERROR_INIT = "" Then
ERROR_INIT = "INVALID USER"
End If