Add Common Queries, Load User & Module Info from DB

ZooFlow/MyApplication.vb

@@ -26,6 +26,8 @@ Namespace My
         Property LogConfig As LogConfig
         Property MainForm As frmMain
         Property Database As MSSQLServer
+
+        Property Common As New ClassCommon
     End Module
 
     ''' <summary>
@@ -36,6 +38,8 @@ Namespace My
         ' User Config
         Public User As New ClassUserState()
         Public Service As New ClassServiceState()
+        Public Modules As New Dictionary(Of String, ClassModuleState)
+        Public ModulesActive As New List(Of String)
     End Class
 End Namespace