diff --git a/app/DD_Clipboard_Searcher/frmSplash.vb b/app/DD_Clipboard_Searcher/frmSplash.vb index fb38b15..887384e 100644 --- a/app/DD_Clipboard_Searcher/frmSplash.vb +++ b/app/DD_Clipboard_Searcher/frmSplash.vb @@ -1,7 +1,7 @@ Imports System.ComponentModel Imports System.Threading Public NotInheritable Class frmSplash - Private InitSteps As Integer = 3 + Private InitSteps As Integer = 4 Private Worker As New BackgroundWorker() Private MainForm As Form @@ -37,22 +37,24 @@ Public NotInheritable Class frmSplash Dim Init = New ClassInit() Worker.ReportProgress(CalcProgress(1), "Initializing Logger") Init.InitLogger() - Thread.Sleep(500) + Thread.Sleep(200) - Worker.ReportProgress(CalcProgress(2), "Initializing Database") + Worker.ReportProgress(CalcProgress(2), "Initializing Base Config") Init.InitBasics() + Thread.Sleep(200) + + Worker.ReportProgress(CalcProgress(3), "Initializing Database") If Init.InitDatabase_New() = True Then + Thread.Sleep(200) - Thread.Sleep(500) - - Worker.ReportProgress(CalcProgress(3), "Initializing User-Configuration") + Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration") If ClassInit.InitUserLogin = False Then If ERROR_INIT = "" Then ERROR_INIT = "INVALID USER" End If End If - Thread.Sleep(500) + Thread.Sleep(200) Else ERROR_INIT = "DATABASE"