Private Sub Me_DragDrop(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        mDragDropItems = e
        DragDropTimer.Enabled = True
End Sub
 
Private Sub DragDropTimer_Tick_DoWork(ByVal sender As Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles DragDropTimer.Tick
        DragDropTimer.Enabled = False
        frmMain.NeueDatenEinlesenDragDrop(Me.mDragDropItems)
    End Sub