Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/frmAdmin_ClipboardWatcher.vb

@@ -33,6 +33,7 @@ Public Class frmAdmin_ClipboardWatcher
     Private Const PROFILE_TYPE_DATA_ONLY As Integer = 2
 
     Private Pages As ClassDetailPageManager
+    Private FormHelper As FormHelper
 
     Friend Class ProfileType
         Public Property Id As Integer
@@ -57,15 +58,12 @@ Public Class frmAdmin_ClipboardWatcher
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        InitializeBaseForm(My.LogConfig)
-
         Me.PrimaryKey = PrimaryKey
         Me.IsInsert = IsInsert
+        FormHelper = New FormHelper(My.LogConfig, Me)
     End Sub
 
     Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles Me.Load
-        InitializeBaseForm(My.LogConfig)
-
         Try
             TBCW_PROFILESTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
             TBCW_PROFILESTableAdapter.Fill(DBCW_Stammdaten.TBCW_PROFILES, PrimaryKey)
@@ -129,7 +127,7 @@ Public Class frmAdmin_ClipboardWatcher
 
             AddHandler Pages.CurrentPage_Changed, AddressOf CurrentPage_Changed
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "frmAdmin_CWProfile_Load")
         End Try
     End Sub
 
@@ -176,7 +174,7 @@ Public Class frmAdmin_ClipboardWatcher
 
                 ShowStatus($"{oPage.Name} gespeichert!")
             Catch ex As Exception
-                ShowErrorMessage(ex)
+                FormHelper.ShowErrorMessage(ex, "BarButtonSave_ItemClick")
             End Try
         Else
             ShowStatus("Keine Änderungen!")