MS

GUIs.ZooFlow/frmtest.vb

@@ -1,9 +1,14 @@
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Base.IDB.FileStore
+Imports DigitalData.GUIs.Common
+Imports DigitalData.Modules.ZooFlow
 
 Public Class frmtest
+    Private Property Environment As Environment
+
     Private Sub frmtest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         cmbObjectStoreType.SelectedIndex = 0
+        Environment = My.Application.GetEnvironment()
     End Sub
 
     Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
@@ -66,4 +71,11 @@ Public Class frmtest
 
 
     End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim oForm As New frmWorkflow_Adhoc_start(My.LogConfig, Environment, 4711)
+        oForm.Show()
+        oForm.BringToFront()
+        oForm.Focus()
+    End Sub
 End Class