Drag and Drop from Explorer

I would like to drag and drop a file from Explorer or any other application, to my application (destination could be a listbox, a textbox, ....).

how could i do that ???

sure, for a listbox

set OLEDropMode for the list to manual

then do this:

Code:

---

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, y As Single)
Dim i
MousePointer = 11

For i = 1 To Data.Files.Count

    List1.AddItem Data.Files(i)
Next i

MousePointer = 0

End Sub

---

------------------
Mark Sreeves
Analyst Programmer

[email protected]
A BMW Group Company

It works !!!! Thanks a lot !!!!

The OLEDropmode set to Manual was missing
in my code.

I Hope to help you once....

Paco