add testform for flowform

GUIs.ZooFlow/frmFlowForm.vb

@@ -11,6 +11,8 @@ Public Class frmFlowForm
     Private ESCHitCount As Integer = 0
     Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default
 
+    Const WS_EX_LAYERED As Int32 = &H80000
+
     Public Event ClipboardChanged As EventHandler(Of IDataObject)
 
     Public Sub New()
@@ -49,6 +51,14 @@ Public Class frmFlowForm
 
         ' === Register As Event Listener ===
         EventBus.Instance.Register(Me)
+
+        ' === TESTING Actions ===
+        Dim oButton As New Button With {
+            .Location = New Point(10, 10),
+            .Size = New Size(10, 10),
+            .Text = "yes"
+        }
+        Controls.Add(oButton)
     End Sub
 
     Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed
@@ -109,7 +119,7 @@ Public Class frmFlowForm
             Case OnFlowFormStateChangedEvent.FlowFormState.HasFileDropped
                 SetBitmap(My.Resources.GLOBIX_GEFUNDEN_klein)
             Case Else
-                SetBitmap(My.Resources.ZOOFLOW_Home_klein)
+                SetBitmap(My.Resources.ZOOFLOW_Home_klein_Eckig)
         End Select
     End Sub
 
@@ -201,11 +211,19 @@ Public Class frmFlowForm
         End Try
     End Sub
 
+    ''' <summary>
+    ''' More Info: https://docs.microsoft.com/en-us/windows/win32/winmsg/window-features#layered-windows
+    ''' </summary>
+    ''' <returns></returns>
     Protected Overrides ReadOnly Property CreateParams As CreateParams
         Get
             Dim oParams As CreateParams = MyBase.CreateParams
-            oParams.ExStyle = oParams.ExStyle Or &H80000
+            oParams.ExStyle = oParams.ExStyle Or WS_EX_LAYERED
             Return oParams
         End Get
     End Property
+
+    Private Sub FlowFormTest1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlowFormTest1ToolStripMenuItem.Click
+        frmFlowForm_Test1.Show()
+    End Sub
 End Class