Private Sub ListView_DragDrop(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop, _
  ListView2.DragDrop
 
        Dim strQuelle As String = TreeView1.SelectedNode.FullPath
        Dim strZiel As String = TreeView2.SelectedNode.FullPath
 
        Dim myItems() As ListViewItem = e.Data.GetData( _
          "System.Windows.Forms.ListViewItem()")
        Dim i As Integer = 0
 
        For Each myItem As ListViewItem In myItems
            ' Add the item to the target list.
            Dim lvItem As ListViewItem = sender.Items.Add(myItem.Text)
 
            'Loop through the sub items and add it to the destination Listview
            Dim j As Integer
            For j = 1 To myItem.SubItems.Count - 1
                lvItem.SubItems.Add(myItem.SubItems(j).Text)
            Next
 
 
 
            strQuelle = System.Text.RegularExpressions.Regex.Replace(strQuelle, _
              "[()]", "")
            strZiel = System.Text.RegularExpressions.Regex.Replace(strZiel, _
            "[G:()]", "")
            strQuelle = strQuelle & "\" & myItem.Text
            strZiel = "\\o\dfsroot29\TEAM\B\BL\BLE\GRP" & strZiel & "\" & _
              myItem.Text
 
            If IO.File.Exists(strZiel) Then
                IO.File.Delete(strZiel)
                IO.File.Move(strQuelle, strZiel)
            Else
                IO.File.Move(strQuelle, strZiel)
            End If
 
 
            ' Remove the item from the source list.
            If sender Is ListView1 Then
                ListView2.Items.Remove(ListView2.SelectedItems.Item(0))
            Else
                ListView1.Items.Remove(ListView1.SelectedItems.Item(0))
            End If
            i += 1
        Next
    End Sub