Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
      Dim a As Int32 = 0
      Dim s(ListView1.SelectedItems.Count - 1) As String
      Dim lv As ListViewItem
 
      For Each lv In ListView1.SelectedItems
         s(a) = lv.Text
         a += 1
      Next
 
      ListView1.DoDragDrop(s, DragDropEffects.Copy)
 
   End Sub
 
   Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
 
   End Sub
 
 
   Private Sub TreeView1_DragOver(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.DragEventArgs) Handles TreeView1.DragOver
      Dim tn As TreeNode
      tn = TreeView1.GetNodeAt(New Point(e.X, e.Y)) 'Befindet sich ein Knoten 
      ' unter der Maus?
 
      Dim file(0) As String
      If e.Data.GetDataPresent(file.GetType()) = True Then
 
         e.Effect = DragDropEffects.Copy
         If Not tn Is Nothing Then
            tn.Expand()
            TreeView1.SelectedNode = tn
            cc.Text = tn.FullPath
         End If
      End If
   End Sub