jj

GUIs.ZooFlow/frmFlowForm_Test1.vb

@@ -19,11 +19,23 @@ Public Class frmFlowForm_Test1
         TopMost = True
         AllowDrop = True
         ShowInTaskbar = False
-        Opacity = OPACITY_HIDDEN
+        Opacity = OPACITY_SHOWN
         SetFormLocation()
 
         AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
         AddHandler KeyUp, AddressOf frmFlowForm_KeyDown
+
+        For Each oControl As Control In Controls
+            AddHandler oControl.MouseHover, AddressOf frmFlowForm_MouseHover
+            AddHandler oControl.MouseLeave, AddressOf frmFlowForm_MouseLeave
+        Next
+    End Sub
+
+    Protected Overrides Sub OnPaint(e As PaintEventArgs)
+        'MyBase.OnPaint(e)
+        Dim oShape As New Drawing2D.GraphicsPath()
+        oShape.AddEllipse(0, 0, Width, Height)
+        Region = New Region(oShape)
     End Sub
 
     Public Sub SetFormLocation()
@@ -31,11 +43,11 @@ Public Class frmFlowForm_Test1
     End Sub
 
     Private Sub frmFlowForm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
-        Opacity = OPACITY_HIDDEN
+        'Opacity = OPACITY_HIDDEN
     End Sub
 
     Private Sub frmFlowForm_MouseHover(sender As Object, e As EventArgs) Handles Me.MouseHover
-        Opacity = OPACITY_SHOWN
+        ' Opacity = OPACITY_SHOWN
     End Sub
 
     Private Sub frmFlowForm_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove