Not so sure why, but can you try with this code, I fixed an error:
Code:
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 Object = Array As String(e.GetDataObjectForId("text/uri-list"))
For Each TextLink As String In TextLinks
Dim Links() As String = Regex.Split("\r\n", TextLink)
If Links.Length > 0 Then
For Each Link As String In Links
'your code here
Log(Link)
Next
e.SetDropCompleted(True)
Return
End If
Next
End Sub
[edit] What are you trying to drag-drop? This code works with a list of files only