Fix BaseRibbonForm

GUIs.Common/Base/BaseRibbonForm.vb

@@ -18,8 +18,8 @@ Namespace Base
     Public Class BaseRibbonForm
         Inherits RibbonForm
 
-        Private ReadOnly _Logger As Logger
-        Private ReadOnly _ErrorHandler As BaseErrorHandler
+        Private _Logger As Logger
+        Private _ErrorHandler As BaseErrorHandler
 
         Protected ReadOnly Property Logger As Logger
             Get
@@ -30,7 +30,7 @@ Namespace Base
         Public Sub New()
         End Sub
 
-        Public Sub New(LogConfig As LogConfig)
+        Public Sub Init(LogConfig As LogConfig)
             ' Get the full name of the inheriting form
             ' so the log messages have the right classname
             Dim oClassName = [GetType]().FullName