Private Sub lv_DragEnter(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter, _
  ListView2.DragEnter
        If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem()") Then
            e.Effect = DragDropEffects.Move
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
 
    Private Sub lv_DragDrop(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop, _
      ListView2.DragDrop
        Dim lv As ListView = CType(sender, ListView)
        Dim lvItems() As ListViewItem = CType(e.Data.GetData( _
          "System.Windows.Forms.ListViewItem()"), ListViewItem())
        Dim i As Integer = 0
        For Each lvItem As ListViewItem In lvItems
            lv.Items.Add(lvItems(i).Text)
            If sender Is ListView2 Then
                ListView1.Items.Remove(ListView1.SelectedItems(0))
            Else
                ListView2.Items.Remove(ListView2.SelectedItems(0))
            End If
            i += 1
        Next
    End Sub