private void lvwPerson_ColumnClick(object sender, ColumnClickEventArgs e) { 
  if(lvwPerson.Sorting == SortOrder.Ascending) { 
    lvwPerson.Sorting = SortOrder.Descending; 
    lvwPerson.ListViewItemSorter =  
       new ListViewComparer(e.Column, SortOrder.Descending); 
  } 
  else { 
    lvwPerson.Sorting = SortOrder.Ascending; 
    lvwPerson.ListViewItemSorter =  
       new ListViewComparer(e.Column, SortOrder.Ascending); 
  } 
}
 
public class ListViewComparer : IComparer { 
  private int col; 
  private SortOrder order; 
  public ListViewComparer(int col, SortOrder order) { 
    this.col = col; 
    this.order = order; 
  } 
  public int Compare(object x, object y) { 
    ListViewItem item1, item2; 
    item1 = (ListViewItem)x; 
    item2 = (ListViewItem)y; 
    if(this.order == SortOrder.Ascending) 
      return item1.SubItems[col].Text.CompareTo (item2.SubItems[col].Text); 
    else 
      return 
    item2.SubItems[col].Text.CompareTo(item1.SubItems[col].Text); 
  } 
}

    Private Sub lstMitarbeiter_ColumnClick1(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ColumnClickEventArgs) Handles _
      lstMitarbeiter.ColumnClick
        With lstMitarbeiter
            If .Sorting = SortOrder.Ascending Then
                .Sorting = SortOrder.Descending
                .ListViewItemSorter = New ListViewComparer(e.Column, _
                  SortOrder.Descending)
            Else
                .Sorting = SortOrder.Ascending
                .ListViewItemSorter = New ListViewComparer(e.Column, _
                  SortOrder.Ascending)
            End If
        End With
 
    End Sub
 
End Class
 
Public Class ListViewComparer
    Implements IComparer
 
    Private col As Integer
    Private order As SortOrder
 
    Public Sub ListViewComparer(ByVal col As Integer, ByVal order As SortOrder)
        Me.col = col
        Me.order = order
    End Sub
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer
        Dim item1 As ListViewItem
        Dim item2 As ListViewItem
        item1 = CType(x, ListViewItem)
        item2 = CType(y, ListViewItem)
        If Me.order = SortOrder.Ascending Then
            Return item1.SubItems(col).Text.CompareTo(item2.SubItems(col).Text)
        Else
            Return item2.SubItems(col).Text.CompareTo(item1.SubItems(col).Text)
 
        End If
    End Function
 
End Class