ClientSuite: Add WorkerManager

GUIs.ClientSuite/Base/BaseForm.vb

@@ -15,14 +15,9 @@ Namespace Base
     Public Class BaseForm
         Inherits Form
 
-        Private ReadOnly _Logger As Logger
         Private ReadOnly _ErrorHandler As ClassErrorHandler
 
         Protected ReadOnly Property Logger As Logger
-            Get
-                Return _Logger
-            End Get
-        End Property
 
         Public Sub New()
             ' Get the full name of the inheriting form
@@ -30,8 +25,8 @@ Namespace Base
             Dim oClassName = [GetType]().FullName
 
             ' My.LogConfig is undefined in the designer  
-            _Logger = My.LogConfig?.GetLogger(oClassName)
-            _ErrorHandler = New ClassErrorHandler(_Logger)
+            Logger = My.LogConfig?.GetLogger(oClassName)
+            _ErrorHandler = New ClassErrorHandler(Logger)
 
             ' When you add something, be careful if it 
             ' depends on a global var like My.LogConfig
@@ -43,18 +38,14 @@ Namespace Base
         End Sub
 
         Private Sub InitializeComponent()
-            Me.SuspendLayout()
+            SuspendLayout()
             '
             'BaseForm
             '
-            Me.ClientSize = New System.Drawing.Size(284, 261)
-            Me.Name = "BaseForm"
-            Me.ResumeLayout(False)
-
-        End Sub
-
-        Private Sub BaseForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+            ClientSize = New Size(284, 261)
+            Name = "BaseForm"
 
+            ResumeLayout(False)
         End Sub
     End Class
 End Namespace