MS

GUIs.ZooFlow/frmFlowForm.vb

@@ -143,8 +143,12 @@ Public Class frmFlowForm
     End Sub
 
     Private Sub PictureBoxSearch_Click(sender As Object, e As EventArgs) Handles PictureBoxSearch.Click
+        Cursor = Cursors.WaitCursor
         Dim oForm As New frmSearchStart(DTIDB_SEARCHES)
         oForm.Show()
+        Dim oForm2 As New frmPreSearch()
+        oForm2.Show()
+        Cursor = Cursors.Default
     End Sub
     Private Sub PictureBoxSearch_MouseEnter(sender As Object, e As EventArgs) Handles PictureBoxSearch.MouseEnter
         PictureBoxSearch.Image = My.Resources._2_LUPE_AKTIV_ZOO
@@ -176,4 +180,8 @@ Public Class frmFlowForm
     Private Sub VerwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerwaltungToolStripMenuItem.Click
         frmAdministrationZooFlow.Show()
     End Sub
+
+    Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
+        PictureBox1.BackgroundImage = My.Resources._1_LOGO_ZOO_FLOW_DROP2
+    End Sub
 End Class