ms

GUIs.ZooFlow/frmFlowForm.vb

@@ -1,8 +1,8 @@
 Imports DigitalData.Modules.Logging
 
 Public Class frmFlowForm
-    Private Const OPACITY_HIDDEN = 0.2
-    Private Const OPACITY_SHOWN = 0.7
+    Private Const OPACITY_HIDDEN = 0.65
+    Private Const OPACITY_SHOWN = 0.85
 
     Private ActiveModules As List(Of String)
     Private Logger As Logger
@@ -101,31 +101,54 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
-
+        PictureBoxSearch.Image = My.Resources._1_ZOO_FLOW_Suche_MouseOver
     End Sub
     Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave
-
+        PictureBoxSearch.Image = My.Resources._1_ZOO_FLOW_Suche
     End Sub
-
     Private Sub PictureBoxPM_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseEnter
-
+        PictureBoxPM.Image = My.Resources._1_ZOO_FLOW_User_MouseOver_
     End Sub
-
     Private Sub PictureBoxPM_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseLeave
-
+        PictureBoxPM.Image = My.Resources._1_ZOO_FLOW_User
     End Sub
 
     Private Sub PictureBoxCWFound_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxCWFound.MouseEnter
-        PictureBoxCWFound.Image = My.Resources._2_ZOO_FLOW5_CW_r
+        PictureBoxCWFound.Image = My.Resources._2_ZOO_FLOW_CW_MouseOver
         Opacity = OPACITY_SHOWN
     End Sub
 
     Private Sub PictureBoxCWFound_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxCWFound.MouseLeave
-        PictureBoxCWFound.Image = My.Resources._2_ZOO_FLOW5_CW_w
-
+        PictureBoxCWFound.Image = My.Resources._2_ZOO_FLOW_CW
+    End Sub
+    Private Sub PictureBoxSearchAbo_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearchAbo.MouseEnter
+        PictureBoxSearchAbo.Image = My.Resources._2_ZOO_FLOW_Abo_MouseOver
+    End Sub
+    Private Sub PictureBoxPMTask_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPMTask.MouseEnter
+        PictureBoxPMTask.Image = My.Resources._2_ZOO_FLOW_PM_MouseOver
+    End Sub
+    Private Sub PictureBoxConversation_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxConversation.MouseEnter
+        PictureBoxConversation.Image = My.Resources._2_ZOO_FLOW_Converations_MouseOver
+    End Sub
+    Private Sub PictureBoxGlobix_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxGlobix.MouseEnter
+        PictureBoxGlobix.Image = My.Resources._1_ZOO_FLOW_GLOBIX_MouseOver
+    End Sub
+    Private Sub PictureBoxGlobix_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxGlobix.MouseLeave
+        PictureBoxGlobix.Image = My.Resources._1_ZOO_FLOW_GLOBIX
     End Sub
-
     Private Sub ZooFlowBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZooFlowBeendenToolStripMenuItem.Click
         ExitZooflow()
     End Sub
+
+    Private Sub PictureBoxSearchAbo_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearchAbo.MouseLeave
+        PictureBoxSearchAbo.Image = My.Resources._2_ZOO_FLOW_Abo
+    End Sub
+
+    Private Sub PictureBoxConversation_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxConversation.MouseLeave
+        PictureBoxConversation.Image = My.Resources._2_ZOO_FLOW_Conversations
+    End Sub
+
+    Private Sub PictureBoxPMTask_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxPMTask.MouseLeave
+        PictureBoxPMTask.Image = My.Resources._2_ZOO_FLOW_PM
+    End Sub
 End Class