Until now I have this for dragging from a listview (File1) to a treeview (treeview1).
So far it works but how to DROP it into the (highlighted) map in the treeview ?


Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case MsgBox("Are you sure you want move " & File1.List(File1.ListIndex) & " to: " & _
vbCrLf & TreeView1.SelectedItem.Key & "?", vbYesNo Or vbQuestion Or _
vbDefaultButton1, "Are you sure?")
Case vbYes
CopyFile File1.Path & "\" & File1.List(File1.ListIndex), TreeView1.SelectedItem.Key & "\" & File1.List(File1.ListIndex), 0
If File1.Path & "\" & File1.List(File1.ListIndex) = TreeView1.SelectedItem.Key & "\" & File1.List(File1.ListIndex) Then
MsgBox "File's are the same"
Exit Sub
End If
Case vbNo
Exit Sub
End Select
End Sub

Private Sub TreeView1_OLEDragOver(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, Shift As Integer, _
x As Single, y As Single, State As Integer)
TreeView1.DropHighlight = TreeView1.HitTest(x, y)
End Sub