jj

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
 
@@ -59,6 +59,12 @@ Public NotInheritable Class frmSplash
             Else
                 ERROR_INIT = "DATABASE"
             End If
+
+            Worker.ReportProgress(CalcProgress(4), "Initializing Automation")
+            If Init.InitAutomation() = False Then
+                ERROR_INIT = "AUTOMATION"
+            End If
+
         Catch ex As Exception
             MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try