Option Explicit
 
Dim li As ListItem
 
Private Sub Form_Load()
    Dim ch As ColumnHeader
 
    Set ch = lvw.ColumnHeaders.Add(, , "Dateien")
    Set li = lvw.ListItems.Add(1, , App.Path + "\Test1.txt")
    Set li = lvw.ListItems.Add(2, , App.Path + "\Test2.txt")
 
    lvw.View = lvwReport
    Text1.Visible = False
    Text1.OLEDragMode = 0
End Sub
 
Private Sub Text1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    AllowedEffects = vbDropEffectCopy Or vbDropEffectMove
    Data.SetData , vbCFFiles
    Data.Files.Add Text1
End Sub
 
Private Sub lvw_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    Set li = lvw.HitTest(x, y)
    If li Is Nothing Then Exit Sub
 
    Text1 = li.Text
    Text1.OLEDrag
    Set li = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1