Dim files As New List(Of String)
        For Each Item As ListViewItem In ListView1.SelectedItems
            files.Add(APfad + "\" + Item.Text)
        Next
 
        If files.Count = 0 Then Return
 
        Dim data As New DataObject(DataFormats.FileDrop, files.ToArray)
        Call DoDragDrop(data, DragDropEffects.Copy)