Include new Messagebox for important messages

Global_Indexer/ClassInit.vb

@@ -7,6 +7,12 @@ Imports DigitalData.Modules.Messaging
 Imports DigitalData.Modules.Database
 Imports DLLLicenseManager
 Public Class ClassInit
+    Private Form As Form
+
+    Public Sub New(pForm As Form)
+        Form = pForm
+    End Sub
+
     Public Sub InitLogger()
         LOGCONFIG = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing,
                                   CompanyName:=My.Application.Info.CompanyName,
@@ -218,7 +224,7 @@ Public Class ClassInit
             'Die Datei übergeben
             LOGGER.Info(">> OnCreated-File:" & e.FullPath)
 
-            If ClassIndexFunctions.CheckDuplicateFiles(e.FullPath, "FolderWatch/Scan") Then
+            If ClassIndexFunctions.CheckDuplicateFiles(Form, e.FullPath, "FolderWatch/Scan") Then
                 FILE_HANDLER.Decide_FileHandle(e.FullPath, oHandleType)
             End If
         Catch ex As Exception