add testform for flowform

2020-08-17 16:02:29 +02:00
parent 834a672b72
commit 2dde2d3a21
10 changed files with 248 additions and 10 deletions
--- a/GUIs.ZooFlow/frmFlowForm_Test1.vb
+++ b/GUIs.ZooFlow/frmFlowForm_Test1.vb
@@ -0,0 +1,13 @@
+Public Class frmFlowForm_Test1
+    Private Sub frmFlowForm_Test1_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Opacity = 0.2
+    End Sub
+
+    Private Sub frmFlowForm_Test1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
+        Opacity = 0.2
+    End Sub
+
+    Private Sub frmFlowForm_Test1_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
+        Opacity = 1
+    End Sub
+End Class