jj: add app state

EDMI_ClientSuite/MyApplication.vb

@@ -1,23 +1,18 @@
 Imports System.ServiceModel
+Imports System.Threading
 Imports DigitalData.Modules.Logging
 Imports EDMI_ClientSuite.NetworkService_DDEDM
 
 Namespace My
-    ''' <summary>
-    ''' Helper Class to hold User State
-    ''' </summary>
-    Public Class User
-        Public Username As String
-        Public MachineName As String
 
-        Public Sub New()
-            Username = Environment.UserName
-            MachineName = Environment.MachineName
-        End Sub
+    Public Class ModuleLicense
+
     End Class
 
+
     ''' <summary>
     ''' Extends the My Namespace
+    ''' Example: My.LogConfig
     ''' </summary>
     <HideModuleName()>
     Module Extension
@@ -28,10 +23,12 @@ Namespace My
 
     ''' <summary>
     ''' Extends the My.Application Namespace
+    ''' Example: My.Application.User
     ''' </summary>
     Partial Class MyApplication
         ' User Config
-        Public User As New User()
+        Public User As New UserState()
+        Public License As New LicenseState()
     End Class
 End Namespace