VB: drag & drop in eine listbox

servus,

da i des no nie gemacht habe, habe ich auch keine ahnung wie ich überhaupt anfangen soll.

beispiel:
ich makiere im windows explorer ein paar dateien und ziehe sie in mein programm auf eine listbox, dort sollen einfach der path und der dateiname stehen.

weiss jemand wie ich das machen kann?

danke im vorraus!

Private Sub Form\_Load()
Me.List1.OLEDropMode = 1
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 l As Long
If Data.GetFormat(vbCFFiles) Then
 For l = 1 To Data.Files.Count
 Call Me.List1.AddItem(Data.Files(l))
 Next l
End If
End Sub

greets from michL (vienna)

DANKE!!!