WIP: cleanup, work on doc result form

Modules.ZooFlow/State/UserState.vb

@@ -0,0 +1,28 @@
+Imports System.Threading
+
+Namespace State
+    ''' <summary>
+    ''' Helper Class to hold User State
+    ''' </summary>
+    Public Class UserState
+        Public Property UserId As Integer
+        Public Property UserName As String
+        Public Property Surname As String
+        Public Property GivenName As String
+        Public Property ShortName As String
+        Public Property Email As String
+        Public Property MachineName As String
+        Public Property DateFormat As String
+        Public Property Language As String
+
+        ''' <summary>
+        ''' Initialize user object with values that can be read from the environment
+        ''' </summary>
+        Public Sub New()
+            Language = Thread.CurrentThread.CurrentCulture.Name
+            UserName = System.Environment.UserName
+            MachineName = System.Environment.MachineName
+        End Sub
+    End Class
+End Namespace
+