Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -16,18 +16,14 @@ Public Class frmAdmin_Start
     Private CurrentModule As String
     Private CurrentPage As String
     Private CurrentItem As ClassDetailForm.DetailData
+    Private FormHelper As FormHelper
+    Private Logger As Logger
 
     Private DetailForm As ClassDetailForm
 
-    Public Sub New()
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        InitializeBaseForm(My.LogConfig)
-    End Sub
-
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        FormHelper = New FormHelper(My.LogConfig, Me)
+        Logger = My.LogConfig.GetLogger()
         DetailForm = New ClassDetailForm(My.LogConfig)
         AddHandler DetailForm.DetailFormClosed, AddressOf DetailForm_Closed
 
@@ -46,7 +42,7 @@ Public Class frmAdmin_Start
 
                 Load_GridData(oDetailData)
             Else
-                Dim oMsgBox As New frmDialog($"Could not load data for Page [{oKey}] because it does not exist!", "Error", True)
+                Dim oMsgBox As New frmDialog($"Could not load data for Page [{oKey}] because it does not exist!", "Error", frmDialog.DialogType.Error)
                 oMsgBox.ShowDialog()
             End If
         End If
@@ -103,7 +99,7 @@ Public Class frmAdmin_Start
             End If
 
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "TreeListMenu_FocusedNodeChanged")
         End Try
     End Sub
 
@@ -219,7 +215,7 @@ Public Class frmAdmin_Start
                 End If
             End If
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "GridView1_RowClick")
         End Try
     End Sub
 
@@ -260,7 +256,7 @@ Public Class frmAdmin_Start
         Try
             DetailForm.Handle_OpenDetail(Nothing, CurrentPage, True)
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "btnAddRecord_ItemClick")
         End Try
     End Sub