Fix BaseRibbonForm

Controls.SQLEditor/frmSQLEditor.vb

@@ -38,7 +38,6 @@ Public Class frmSQLEditor
     End Class
 
     Public Sub New(LogConfig As LogConfig, SQLServer As MSSQLServer)
-        MyBase.New(LogConfig)
         InitializeComponent()
 
         Me.LogConfig = LogConfig
@@ -48,6 +47,8 @@ Public Class frmSQLEditor
 
     Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
+            Init(LogConfig)
+
             txtSQL.Text = SQLString
 
             BindingSourcePlaceholder.DataSource = Placeholders

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