MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -309,12 +309,14 @@ Public Class frmFlowForm
 
                 Dim oFileExclusions As New ClassExclusions()
                 If oFileExclusions.Load() = False Then
+                    Dim oMsg As String
                     If My.Application.User.Language = "de-DE" Then
-                        MsgBox("Die Ausschlusskriterien für Dateien in Folderwatch konnten nicht angelegt werden!", MsgBoxStyle.Information)
+                        oMsg = "Die Ausschlusskriterien für Dateien in Folderwatch konnten nicht angelegt werden!"
                     Else
-                        MsgBox("File-Exclusions in Folderwatch could not be created!", MsgBoxStyle.Information)
+                        oMsg = "File-Exclusions in Folderwatch could not be created!"
                     End If
-
+                    Dim oMsgBox As New Dialog1(oMsg, "Error", True)
+                    oMsgBox.ShowDialog()
                 End If
 
                 Init_Folderwatch()
@@ -506,7 +508,7 @@ Public Class frmFlowForm
         If My.Application.User.Language <> "de-DE" Then
             oTitle = "Exit Zooflow"
         End If
-        Dim oMsgBox As New Dialog1(omessage, oTitle)
+        Dim oMsgBox As New Dialog1(omessage, oTitle, False)
         oMsgBox.ShowDialog()
 
         If oMsgBox.DialogResult = DialogResult.OK Then
@@ -611,7 +613,8 @@ Public Class frmFlowForm
         End If
         If TheFormIsAlreadyLoaded("frmIndexFileList") Then
             Cursor = Cursors.Default
-            MsgBox("Please index the active file first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
+            Dim oMsgBox As New Dialog1("Please index the active file first!", "Drag 'n Drop not allowed!", True)
+            oMsgBox.ShowDialog()
             Exit Function
         End If
 
@@ -914,7 +917,8 @@ Public Class frmFlowForm
             If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
 
             Else
-                MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                Dim oMsgBox As New Dialog1("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", True)
+                oMsgBox.ShowDialog()
             End If
 
         End Try