Public Class Form1
    Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        BackgroundWorkerDragDrop.RunWorkerAsync()
    End Sub
 
    Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
        Const CtrlMask As Byte = 8
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            If (e.KeyState And CtrlMask) = CtrlMask Then
                e.Effect = DragDropEffects.Copy
            Else
                e.Effect = DragDropEffects.Move
            End If
        Else
            Debug.Print("Me.DragEnter: kann nicht initialisiert werden!")
        End If
    End Sub
 
    Private Sub BackgroundWorkerDragDrop_DoWork(ByVal sender As Object, ByVal e _
      As System.ComponentModel.DoWorkEventArgs) Handles _
      BackgroundWorkerDragDrop.DoWork
        With ToolStripProgressBar1
            .Minimum = 0
            .Maximum = 100
            .Value = 0
            .Visible = True
        End With
    End Sub
End Class