---

Sæt en list1 på din form. Og sæt oleDragmode = 1 -manual.

Derefter kan du skrive :

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long , Button As Integer, Shift As Integer, X As Single, Y As Single )
For i = 1 To Data.Files.Count
List1.AddItem Data.Files(i)
Next i
End Sub

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.