Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/Users/frmAdmin_User.vb

@@ -12,9 +12,11 @@ Public Class frmAdmin_User
 
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
 
-    Private Property ErrorHandler As BaseErrorHandler
+
+
     Private Property Pages As ClassDetailPageManager
     Private Property Logger As Logger
+    Private Property FormHelper As FormHelper
 
     Public Sub New(pPrimaryKey As Integer, Optional pIsInsert As Boolean = False)
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -23,7 +25,6 @@ Public Class frmAdmin_User
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         PrimaryKey = pPrimaryKey
         IsInsert = pIsInsert
-        ErrorHandler = New BaseErrorHandler(My.LogConfig, My.LogConfig.GetLogger, Me)
         Logger = My.LogConfig.GetLogger()
     End Sub
 
@@ -69,7 +70,7 @@ Public Class frmAdmin_User
             TBDD_USERTableAdapter.Delete(PrimaryKey)
             Return True
         Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "DeleteData")
+            FormHelper.ShowErrorMessage(ex, "DeleteData")
             Return False
         End Try
     End Function
@@ -94,7 +95,7 @@ Public Class frmAdmin_User
                 oPage.IsInsert = False
                 txtStatus.Caption = $"{oPage.Name} gespeichert!"
             Catch ex As Exception
-                ErrorHandler.ShowErrorMessage(ex, "ItemClick")
+                FormHelper.ShowErrorMessage(ex, "ItemClick")
             End Try
         Else
             txtStatus.Caption = $"Keine Änderungen"