Dans la propriete de la form :
OLEDropMode = 1 - Manual
Ensuite, dans le code :
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox (Data.Files(1))
End Sub
On peut aussi avoir le passage de plusieur nom, mais la gestion est simple.