MS

Global_Indexer/frmStart.vb

@@ -158,10 +158,14 @@ Public Class frmStart
     End Sub
 
     Private Sub LabelControl1_DragEnter(sender As Object, e As DragEventArgs) Handles LabelControl1.DragEnter
+        PictureEdit1.Visible = True
+        PictureEdit1.Dock = DockStyle.Fill
         Drag_Enter(sender, e)
+
     End Sub
 
     Sub DragDropForm(e As DragEventArgs)
+
         Dim frmCollection = Application.OpenForms
         If frmCollection.OfType(Of frmIndexFileList).Any Then
             MsgBox("Please index the active file/mail first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
@@ -664,4 +668,8 @@ Public Class frmStart
             MsgBox("Unexpected Error in Choose Files for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub LabelControl1_DragLeave(sender As Object, e As EventArgs) Handles LabelControl1.DragLeave
+        PictureEdit1.Visible = False
+    End Sub
 End Class