ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -9,8 +9,6 @@ Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants
 Imports DevExpress.XtraGrid
 
 Public Class frmAdmin_Start
-    Inherits frmAdmin_Base
-
     Private CurrentModule As String
     Private CurrentPage As String
     Private CurrentItem As ClassDetailForm.DetailData
@@ -25,7 +23,7 @@ Public Class frmAdmin_Start
         TreeListMenu.ExpandAll()
     End Sub
 
-    Private Sub DetailForm_Closed(sender As Object, e As frmAdmin_Interface)
+    Private Sub DetailForm_Closed(sender As Object, e As IAdminForm)
         If e.HasChanges Then
             Load_SQLData()
             Load_GridData(DetailForm.DetailDataList.Item(CurrentPage))
@@ -103,7 +101,7 @@ Public Class frmAdmin_Start
                 CurrentPage = e.Node.Tag.ToString
             End If
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub
 
@@ -206,7 +204,7 @@ Public Class frmAdmin_Start
                 End If
             End If
         Catch ex As Exception
-            ShowError(ex)
+            ShowErrorMessage(ex)
         End Try
     End Sub