MS Brackets

GUIs.ZooFlow/frmFlowForm.vb

@@ -101,54 +101,35 @@ 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
+        PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO
     End Sub
     Private Sub PictureBoxSearch_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseLeave
-        PictureBoxSearch.Image = My.Resources._1_ZOO_FLOW_Suche
+        PictureBoxSearch.Image = My.Resources._2_LUPE_INAKTIV_ZOO
     End Sub
     Private Sub PictureBoxPM_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseEnter
-        PictureBoxPM.Image = My.Resources._1_ZOO_FLOW_User_MouseOver_
+        PictureBoxPM.Image = My.Resources._3_PERSON_AKTIV_ZOO
     End Sub
     Private Sub PictureBoxPM_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxPM.MouseLeave
-        PictureBoxPM.Image = My.Resources._1_ZOO_FLOW_User
+        PictureBoxPM.Image = My.Resources._3_PERSON_INAKTIV_ZOO
     End Sub
 
-    Private Sub PictureBoxCWFound_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxCWFound.MouseEnter
-        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_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
+        PictureBoxGlobix.Image = My.Resources._4_GLOBIX_AKTIV_ZOO
     End Sub
     Private Sub PictureBoxGlobix_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxGlobix.MouseLeave
-        PictureBoxGlobix.Image = My.Resources._1_ZOO_FLOW_GLOBIX
+        PictureBoxGlobix.Image = My.Resources._4_GLOBIX_INAKTIV_ZOO
     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
+    Private Sub DevexpressFormToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DevexpressFormToolStripMenuItem.Click
+        frmDevexpressForm.Show()
     End Sub
 
-    Private Sub PictureBoxConversation_MouseLeave(sender As Object, e As EventArgs) Handles PictureBoxConversation.MouseLeave
-        PictureBoxConversation.Image = My.Resources._2_ZOO_FLOW_Conversations
+    Private Sub AlleAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAnzeigenToolStripMenuItem.Click
+        For Each oControl As Control In Me.Controls
+            oControl.Visible = True
+        Next
     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