Zooflow: Fix messageboxes without title

GUIs.Monitor/frmMonitor.Designer.vb

@@ -3,7 +3,7 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmMonitor
     'Inherits DevExpress.XtraBars.Ribbon.RibbonForm
-    Inherits BaseRibbonForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _

GUIs.Monitor/frmMonitor.vb

@@ -18,6 +18,8 @@ Imports DevExpress.XtraEditors.Controls
 
 Public Class frmMonitor
     Public Property LogConfig As LogConfig
+    Public Property Logger As Logger
+    Public Property FormHelper As FormHelper
     Public Property ConfigManager As ConfigManager(Of Config)
     Public Property Database As MSSQLServer
 
@@ -33,9 +35,6 @@ Public Class frmMonitor
 
     Private ReadOnly DisplayColumns As New List(Of String) From {"COLUMN1", "COLUMN2", "COLUMN3", "ADDED_WHEN", "STATE", "ICON"}
 
-
-
-
     Private SQLResultGrids As List(Of GridControl)
     Private SQLResultTabs As List(Of XtraTabPage)
     Private ActiveSQLResultGrid As GridControl
@@ -76,8 +75,10 @@ Public Class frmMonitor
     Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Monitor")
+            Logger = LogConfig.GetLogger()
+            FormHelper = New FormHelper(LogConfig, Me)
+
             ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.UserAppDataPath, Application.StartupPath)
-            InitializeBaseForm(LogConfig)
 
             If ConfigManager.Config.ConnectionString = String.Empty Then
                 Dim oSQLConfig As New frmSQLConfig(LogConfig)
@@ -86,7 +87,7 @@ Public Class frmMonitor
                     ConfigManager.Save()
                     Application.Restart()
                 Else
-                    ShowErrorMessage("No Database configured. Application will close!")
+                    FormHelper.ShowErrorMessage("No Database configured. Application will close!", "frmStart_Load")
                     Application.Exit()
 
                 End If
@@ -143,7 +144,7 @@ Public Class frmMonitor
             SplitContainerControl3.Collapsed = True
             SplitContainerMain.Collapsed = True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmStart_Load")
         End Try
     End Sub
 
@@ -195,7 +196,7 @@ Public Class frmMonitor
             Next
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "LoadData")
             Return False
         Finally
             SplitContainerContent.Enabled = False
@@ -219,7 +220,7 @@ Public Class frmMonitor
             cmbSearchKeys.Properties.Items.Clear()
             cmbSearchKeys.Properties.Items.AddRange(SearchKeys)
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "LoadSearchKeys")
         End Try
     End Sub