Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As _
  Integer, Shift As Integer, X As Single, Y As Single)
 
If Data.GetFormat(vbCFFiles) = True Then
    List1.AddItem Data.Files(1)
End If
 
End Sub
----
Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Data.Files.Add List1.List(0)
Data.SetData , vbCFFiles
End Sub