Drag and Open

[jjferreira]

Hi there every one...I have been building an application called ASPWizard,and I was wanting to grab a text file and drag it over to my aplication and open it staight away, insted of going to File >Open etc...

Many thanks

[joefoulkes]

Set the OLEDropMode property of the form to Manual, then add this ..

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

dim a

For a = 1 To Data.Files.Count
MsgBox "User drag and dropped the file: " + Data.Files.Item(a)
Next a

End Sub