Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As _
  Long, _
  Button As Integer, Shift As Integer, x As Single, y As Single)
 
  Dim oItem As ListItem
  Dim index As Long
 
  index = ListView1.ListItems.Count + 1
  Set oItem = ListView1.HitTest(x, y)
  If Not oItem Is Nothing Then
    index = oItem.index
  End If
 
  ListView1.ListItems.Add index, , Data.Files(1)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de