initialize zooflow

ZooFlow/MyApplication.vb

@@ -0,0 +1,42 @@
+Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Database
+
+Namespace My
+    ''' <summary>
+    ''' Extends the My Namespace
+    ''' Example: My.LogConfig
+    ''' </summary>
+    <HideModuleName()>
+    Module Extension
+        Property SystemConfigManager As ConfigManager(Of ClassConfig)
+        ReadOnly Property SystemConfig As ClassConfig
+            Get
+                Return SystemConfigManager.Config
+            End Get
+        End Property
+
+        Property UIConfigManager As ConfigManager(Of ClassUIConfig)
+        ReadOnly Property UIConfig As ClassUIConfig
+            Get
+                Return UIConfigManager.Config
+            End Get
+        End Property
+
+        Property LogConfig As LogConfig
+        Property MainForm As frmMain
+        Property Database As MSSQLServer
+    End Module
+
+    ''' <summary>
+    ''' Extends the My.Application Namespace to hold Application State
+    ''' Example: My.Application.User
+    ''' </summary>
+    Partial Class MyApplication
+        ' User Config
+        Public User As New ClassUserState()
+        Public Service As New ClassServiceState()
+    End Class
+End Namespace
+
+