Private Sub lst_ColumnClick(ByVal sender As ListView, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lst.ColumnClick sender.ListViewItemSorter = New ListViewItemComparer(e.Column) sender.Sort() End Sub