Friend WithEvents mDragDropTask As New BackgroundWorker()
Private mDragDropItems As System.Windows.Forms.DragEventArgs
 
 
Private Sub Me_DragDrop(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        mDragDropItems = e
        mDragDropTask.RunWorkerAsync()
        'frmMain.NeueDatenEinlesenDragDrop(e)
    End Sub
 
Private Sub mDragDropTask_DoWork(ByVal sender As Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles mDragDropTask.DoWork
        frmMain.NeueDatenEinlesenDragDrop(Me.mDragDropItems)
    End Sub