'Ereignis beim Eintreten in ein neues Steuerelement
    Private Sub lvKette_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles lvKette.DragEnter
        e.Effect = DragDropEffects.Copy
        Cursor = Cursors.WaitCursor
    End Sub