remove automation from init

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -64,16 +64,6 @@ Public Class ClassInit
         Return True
     End Function
 
-    Public Function InitAutomation() As Boolean
-        Try
-            Automation = New ClassAutomation(LogConfig)
-            Return True
-        Catch ex As Exception
-            Logger.Error(ex)
-            Return False
-        End Try
-    End Function
-
     Private Function DecryptConnectionString(EncryptedConnectionString As String) As String
         Dim oBuilder As New SqlClient.SqlConnectionStringBuilder With {
             .ConnectionString = EncryptedConnectionString

app/DD_Clipboard_Searcher/frmSplash.vb

@@ -1,7 +1,7 @@
 Imports System.ComponentModel
 Imports System.Threading
 Public NotInheritable Class frmSplash
-    Private InitSteps As Integer = 4
+    Private InitSteps As Integer = 3
     Private Worker As New BackgroundWorker()
     Private MainForm As Form
 
@@ -60,11 +60,6 @@ Public NotInheritable Class frmSplash
                 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