Sub Drop_DragOver(e As DragEvent)
'Check the data id before accepting:
Dim Links() As Object = Array As String(e.GetDataObjectForId("text/uri-list"))
If Links.Length > 0 Then e.AcceptTransferMode("MOVE")
End Sub
Private Sub Drop_DragDropped(e As DragEvent)
Dim TextLinks As String = e.GetDataObjectForId("text/uri-list")
Dim Links() As String = Regex.Split("\r\n", TextLinks)
If Links.Length > 0 Then
For Each Link As String In Links
'your code here
Next
e.SetDropCompleted(True)
Return
End If
End Sub