CodeItBetter Programming Another VB Programming Blog

'Controls - How to Drag/drop files from explorer to a listbox
Private Sub Form_Load()
    List1.OLEDropMode = vbOLEDropManual
End Sub
 
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
    Dim I As Long
 
    For I = 1 To Data.Files.Count
        List1.AddItem Data.Files(I)
    Next I
End Sub