Drag and Drop

[MrPolite]

I never tried to do any dran and drop stuff, so someone plz help me on this: I want the user to drag a file to an area and I want my program to figure out the file name. I believe it's farily simple for someone who has worked with these stuff, so plz give me a hint

btw, this is my 700th post

[MidgetsBro]

Set the OLEDropMode property of the form to Manual (1) and put this code on your form:

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.GetFormat(15) = True Then '15 is the format for files; 1 is text (like dragging a link from internet explorer)
For i = 1 To Data.Files.Count
    MsgBox Data.Files(i)
Next
End If
End Sub

[MrPolite]

tnx alot