Private Sub Form_Load()
    Label1.Caption = vbNullString
    File1.path = "C:"
    File2.path = "D:"
End Sub
 
Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
    Dim dy As Long
 
    dy = TextHeight("A")
 
    Label1.Visible = True
    Label1.Move File1.Left, File2.Top + Y - dy / 2, File1.Width, dy
    Label1.Tag = File1.List(File1.ListIndex)
    Label1.Drag
End Sub
 
Private Sub File2_DragDrop(Source As Control, X As Single, Y As Single)
    Dim sPfad1 As String
    Dim sPfad2 As String
 
    If Not TypeOf Source Is Label Then Exit Sub
 
    sPfad1 = File1.path
    If Right(sPfad1, 1) <> "\" Then sPfad1 = sPfad1 + "\"
    sPfad2 = File2.path
    If Right(sPfad2, 1) <> "\" Then sPfad2 = sPfad2 + "\"
 
    FileCopy sPfad1 + Label1.Tag, sPfad2 + Label1.Tag
 
    File2.Refresh
End Sub

Gru? Michi aus Hannover

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