Private Sub ListView3_OLEDragDrop(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
 
 
    Dim myItems() As String
    Dim myItemsData As String
    Dim objitem As ListItem
    Dim i As Integer
    On Error GoTo ende
    ' nur zur Demo der übergebenen Daten
    If Data.GetFormat(vbCFText) Then
        Text1.text = Data.GetData(vbCFText)
    End If
 
    If Data.GetFormat(vbCFText) Then
        myItemsData = Data.GetData(vbCFText)
        myItems = Split(myItemsData, vbCrLf, -1, vbBinaryCompare)
        For i = LBound(myItems) To UBound(myItems)
            Set objitem = ListView3.ListItems.Add(, , myItems( _
              i)).ListSubItems.Add(1, , zwtrapo)
        Next                                         
        ListView3.Refresh
    End If
ende:
End Sub
 
' myitems = Spalte 1 und zwtrapo ist spalte 6 (aus Listview 1
' Listview3 hat nur 3 Spalten ...