ms nach wilke

GUIs.ZooFlow/frmFlowForm.vb

@@ -2,7 +2,7 @@
 
 Public Class frmFlowForm
     Private Const OPACITY_HIDDEN = 0.2
-    Private Const OPACITY_SHOWN = 1
+    Private Const OPACITY_SHOWN = 0.7
 
     Private ActiveModules As List(Of String)
     Private Logger As Logger
@@ -19,7 +19,7 @@ Public Class frmFlowForm
         TopMost = True
         AllowDrop = True
         ShowInTaskbar = False
-        Opacity = OPACITY_SHOWN
+        Opacity = OPACITY_HIDDEN
         SetFormLocation()
 
         AddHandler KeyDown, AddressOf frmFlowForm_KeyDown
@@ -36,11 +36,11 @@ Public Class frmFlowForm
     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