OLE drag n' drop

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
    For i = 1 To Data.Files.Count
        MsgBox "Fil nummer " & i & " hedder : " & Data.Files(i)
    Next i
End Sub

takker! Undskyld ventetiden på pointene men jeg har ikke været hjemme..