Urgent help. How to get multiple ole drag and dropped items into listbox

[Dextergaisie]

Hello everyone,
am able to get a the filename/path from an item i drop onto my list box using the code below. but unfortunately only one of the item is drop no matter the multiple selection of files i make say from the desktop or elsewhere.

dim str as string
str = data.item(1)
listbox1.additem str

I would be very grateful if anyone could show me how to get all the selected files into the listbox. Thank you.

[LaVolpe]

Ummm, the data object does not have an .Item property/method. Are you positive the code you posted is what you are using? Is this VB6?

In vb6, the code would look like this

    Dim f As Long
    If Data.GetFormat(vbCFFiles) Then
        For f = 1 To Data.Files.Count
            List1.AddItem Data.Files(f)
        Next
    End If