initialize zooflow

ZooFlow/frmMain.vb

@@ -1,22 +1,26 @@
-
+Imports System.ComponentModel
 Imports DevExpress.XtraSplashScreen
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Database
 
 Partial Public Class frmMain
     Private WithEvents FlowForm As New frmFlowForm()
+    Private Logger As Logger = My.LogConfig.GetLogger
 
     Public Sub New()
         InitializeComponent()
-        InitializeApplication()
+
     End Sub
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        FlowForm.Show()
-
-        ToastNotificationsManager.ShowNotification(ToastNotificationsManager.Notifications.First)
+        Dim oInit As New ClassInit(Me)
+        oInit.InitializeApplication()
     End Sub
 
     Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         Hide()
+        FlowForm.Show()
     End Sub
 
     Private Sub FlowForm_ClipboardChanged(sender As Object, e As IDataObject) Handles FlowForm.ClipboardChanged
@@ -49,16 +53,17 @@ Partial Public Class frmMain
         End If
     End Sub
 
-    Private Sub InitializeApplication()
-        SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False, False)
 
-        ' The splash screen will be opened in a separate thread. To interact with it, use the SendCommand method.
-        For i As Integer = 1 To 100
-            SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetProgress, i)
-            'To process commands, override the SplashScreen.ProcessCommand method.
-            Threading.Thread.Sleep(25)
-        Next i
 
+    Private Sub ProgressChanged(sender As Object, Progress As ClassInitLoader.InitProgress)
+        SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetProgress, Progress.CurrentPercent)
+        SplashScreenManager.Default.SendCommand(frmSplash.SplashScreenCommand.SetActionName, Progress.CurrentStep.Name)
+    End Sub
+
+    Private Sub InitCompleted(sender As Object, e As RunWorkerCompletedEventArgs)
         SplashScreenManager.CloseForm(False)
     End Sub
+
+
+
 End Class