Zooflow: Fix messageboxes without title

GUIs.Common/ObjectPropertyDialog/frmObjectPropertyDialog.vb

@@ -20,10 +20,10 @@ Public Class frmObjectPropertyDialog
     Private ReadOnly ObjectId As Int64
     Private ReadOnly DatabaseIDB As MSSQLServer
     Private ReadOnly ControlManager As AttributeControls
+    Private Property FormHelper As FormHelper
 
     Private ReadOnly Property LogConfig As LogConfig Implements IBaseForm.LogConfig
     Private ReadOnly Property Logger As Logger Implements IBaseForm.Logger
-    Private ReadOnly Property ErrorHandler As BaseErrorHandler Implements IBaseForm.ErrorHandler
 
     Private ReadOnly Changes As New Dictionary(Of String, Object)
 
@@ -41,7 +41,6 @@ Public Class frmObjectPropertyDialog
         ControlManager = New AttributeControls(LogConfig, Environment, pClient)
         AddHandler ControlManager.EditValueChanged, AddressOf BaseEdit_EditValueChanged
 
-        ErrorHandler = New BaseErrorHandler(LogConfig, Me)
     End Sub
 
     Private Async Sub frmObjectPropertyDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -68,7 +67,7 @@ Public Class frmObjectPropertyDialog
 
             cmbBusinessEntity.EditValue = oEntityIds.First()
         Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load")
+            FormHelper.ShowErrorMessage(ex, "frmObjectPropertyDialog_Load")
         Finally
             If oHandle IsNot Nothing Then
                 SplashScreenManager.CloseOverlayForm(oHandle)
@@ -225,10 +224,10 @@ Public Class frmObjectPropertyDialog
                 })
             Next
 
-            ErrorHandler.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!")
+            FormHelper.ShowInfoMessage($"{Changes.Count} Änderungen gespeichert!", "btnSave_ItemClick")
             Changes.Clear()
         Catch ex As Exception
-            ErrorHandler.ShowErrorMessage(ex, "btnSave_ItemClick")
+            FormHelper.ShowErrorMessage(ex, "btnSave_ItemClick")
         End Try
     End Sub