Organize Control Classes in Namespaces

EDMI_ClientSuite/Base/BaseClass.vb

@@ -1,16 +1,22 @@
 Imports DigitalData.Modules.Logging
 
-''' <summary>
-''' Base Class which supplies a Logger/LogConfig
-''' </summary>
-Public Class BaseClass
-    Protected LogConfig As LogConfig
-    Protected Logger As Logger
 
-    Public Sub New(LogConfig As LogConfig)
-        Dim oClassName = Me.GetType().Name
+Namespace Base
+    ''' <summary>
+    ''' Base Class which supplies a Logger/LogConfig
+    ''' </summary>
+    Public Class BaseClass
+        Protected LogConfig As LogConfig
+        Protected Logger As Logger
+
+        Public Sub New(LogConfig As LogConfig)
+            Dim oClassName = Me.GetType().Name
+
+            Me.LogConfig = LogConfig
+            Me.Logger = LogConfig.GetLogger(oClassName)
+        End Sub
+    End Class
+End Namespace
+
+
 
-        Me.LogConfig = LogConfig
-        Me.Logger = LogConfig.GetLogger(oClassName)
-    End Sub
-End Class