Zooflow: Fix messageboxes without title

GUIs.ZooFlow/Administration/IDB/frmAdmin_IDBObjectStore.vb

@@ -1,4 +1,6 @@
-Public Class frmAdmin_IDBObjectStore
+Imports DigitalData.GUIs.Common
+
+Public Class frmAdmin_IDBObjectStore
     Implements IAdminForm
 
     Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
@@ -6,7 +8,7 @@
 
     Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
 
-
+    Private FormHelper As FormHelper
 
     Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
     Dim oStorePath As String = String.Empty
@@ -19,9 +21,9 @@
         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 BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
@@ -103,7 +105,7 @@
 
             Return True
         Catch ex As Exception
-            ShowErrorMessage(ex)
+            FormHelper.ShowErrorMessage(ex, "SaveData")
             Return False
         End Try
     End Function