zooflow: msgbox

GUIs.ZooFlow/frmFlowForm.vb

@@ -315,8 +315,8 @@ Public Class frmFlowForm
                     Else
                         oMsg = "File-Exclusions in Folderwatch could not be created!"
                     End If
-                    Dim oMsgBox As New frmDialog(oMsg, Text, frmDialog.DialogType.Warning)
-                    oMsgBox.ShowDialog()
+
+                    FormHelper.ShowWarningMessage(oMsg, Text)
                 End If
 
                 Init_Folderwatch()
@@ -508,10 +508,10 @@ Public Class frmFlowForm
         If My.Application.User.Language <> "de-DE" Then
             oTitle = "Exit Zooflow"
         End If
-        Dim oMsgBox As New frmDialog(oMessage, oTitle, frmDialog.DialogType.Question)
-        oMsgBox.ShowDialog()
 
-        If oMsgBox.DialogResult = DialogResult.Yes Then
+        Dim oResult = FormHelper.ShowQuestionMessage(oMessage, oTitle)
+
+        If oResult = DialogResult.Yes Then
             Close()
         Else
             ESCHitCount = 0
@@ -613,8 +613,7 @@ Public Class frmFlowForm
         End If
         If TheFormIsAlreadyLoaded("frmIndexFileList") Then
             Cursor = Cursors.Default
-            Dim oMsgBox As New frmDialog("Please index the active file first!", "Drag 'n Drop not allowed!", frmDialog.DialogType.Warning)
-            oMsgBox.ShowDialog()
+            FormHelper.ShowWarningMessage("Please index the active file first!", "Drag 'n Drop not allowed!")
             Exit Function
         End If
 
@@ -917,8 +916,7 @@ Public Class frmFlowForm
             If ex.Message.Contains("Sammlung wurde geändert") Or ex.Message.Contains("Enumeration") Then
 
             Else
-                Dim oMsgBox As New frmDialog("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, "Drag 'n Drop not allowed!", frmDialog.DialogType.Error)
-                oMsgBox.ShowDialog()
+                FormHelper.ShowErrorMessage(ex, "Drag 'n Drop not allowed!")
             End If
 
         End Try