Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, _
  Effect As Long, Button As Integer, Shift As Integer, _
  x As Single, y As Single)
 
  <font color=green>' Item ermitteln</font>
  Dim oItem As ListItem  
  Set oItem = ListView1.HitTest(x, y)
 
  If Not oItem Is Nothing Then
    Call SendFile(oItem, Data.Files(1))
  End If
End Sub