Интернет - советы, вопросы.

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




После этого он напишет имя фаила который ты переташил...