ZooFlow: WIP Clipboard Watcher integration

GUIs.ZooFlow/ClassEnvironment.vb

@@ -1,3 +1,15 @@
-Public Class ClassEnvironment
+Imports DigitalData.Modules.ZooFlow
 
+Public Class ClassEnvironment
+    Public Shared Function GetEnvironment() As Environment
+        Dim oEnvironment As New Environment() With {
+            .DatabaseIDB = My.DatabaseIDB,
+            .Database = My.Database,
+            .Modules = My.Application.Modules,
+            .Service = My.Application.Service,
+            .Settings = My.Application.Settings,
+            .User = My.Application.User
+        }
+        Return oEnvironment
+    End Function
 End Class