ZooFlow: First working version of Clipboard Watcher

GUIs.ZooFlow/MyApplication.vb

@@ -54,12 +54,20 @@ Namespace My
         Public Property Globix As New Globix.State
         Public Property Search As New Search.State
 
-        Public Property GDPictureLicense As String
-
         Public CommandLineFunction As String
         Public CommandLineArguments As New Dictionary(Of String, String)
         Public Property IDB_DT_DOC_DATA As DataTable
 
+        Public Function GetEnvironment() As Environment
+            Return New Environment With {
+                .Database = My.Database,
+                .DatabaseIDB = My.DatabaseIDB,
+                .Modules = My.Application.Modules,
+                .Service = My.Application.Service,
+                .Settings = My.Application.Settings,
+                .User = My.Application.User
+            }
+        End Function
     End Class
 End Namespace