Public Class Form1
Private Sub listview1_DoubleClick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles ListView1.DoubleClick
        Dim a As String
        For Each Item In ListView1.SelectedItems
            a = ListView1.SelectedItems(0).SubItems(1).Text
            ListView2.Items.Add(Item.text).SubItems.add(a)
            ListView1.Items.Remove(ListView1.SelectedItems(0))
        Next
    End Sub
 
    Private Sub listview2_DoubleClick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles ListView2.DoubleClick
        Dim a As String
        For Each Item In ListView2.SelectedItems
            a = ListView2.SelectedItems(0).SubItems(1).Text
            ListView1.Items.Add(Item.text).SubItems.add(a)
            ListView2.Items.Remove(ListView2.SelectedItems(0))
        Next
    End Sub
 
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button11.Click
        Dim a As String
        For Each Item In ListView1.SelectedItems
            a = ListView1.SelectedItems(0).SubItems(1).Text
            ListView2.Items.Add(Item.text).SubItems.add(a)
            ListView1.SelectedItems(0).Remove()
        Next
    End Sub
 
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button12.Click
        Dim a As String
        For Each Item In ListView2.SelectedItems
            a = ListView2.SelectedItems(0).SubItems(1).Text
            ListView1.Items.Add(Item.text).SubItems.add(a)
            ListView2.SelectedItems(0).Remove()
        Next
    End Sub
 
    Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ColumnClickEventArgs)
        'AddHandler ListView1.ColumnClick, AddressOf Me.ListView1_ColumnClick
 
        ' Set the ListViewItemSorter property to a new ListViewItemComparer
        ' object.
        Me.ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column)
        ' Call the sort method to manually sort.
        ListView1.Sort()
 
        Me.ListView2.ListViewItemSorter = New ListViewItemComparer(e.Column)
        ListView2.Sort()
    End Sub
 
    Private Sub ListView2_ColumnClick(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ColumnClickEventArgs)
        'AddHandler ListView1.ColumnClick, AddressOf Me.ListView1_ColumnClick
 
        ' Set the ListViewItemSorter property to a new ListViewItemComparer
        ' object.
        Me.ListView2.ListViewItemSorter = New ListViewItemComparer(e.Column)
        ' Call the sort method to manually sort.
        ListView2.Sort()
 
        Me.ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column)
        ListView1.Sort()
    End Sub
End Class
 
 
 
 
' Implements the manual sorting of items by column.
Class ListViewItemComparer
    Implements IComparer
    Private col As Integer
 
    Public Sub New()
        col = 0
    End Sub
 
    Public Sub New(ByVal column As Integer)
        col = column
    End Sub
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
                            Implements System.Collections.IComparer.Compare
        Dim returnVal As Integer = -1
        returnVal = [String].Compare(CType(x,  _
                        ListViewItem).SubItems(col).Text, _
                        CType(y, ListViewItem).SubItems(col).Text)
        Return returnVal
    End Function
End Class