VB.NET中LISTVIEW控件点击列首排序问题

最近写的程序需要点击LISTVIEW控件的列首排序，搜索了一下网上的文章代码，很少，而且是C#的代码，看了下MSDN，终于搞清楚了VB的写法，MSDN上只有按照字母顺序排序的，于是我加工了一下，可以选择按照数字、时间排序。

LISTVIEW控件名是LV1

 

    Private Sub LV1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles LV1.ColumnClick

        Select Case LV1.Columns.Item(e.Column).Text
            Case "状态"
                LV1.ListViewItemSorter = New ListViewItemComparerByInt(e.Column)
            Case "编号"
                LV1.ListViewItemSorter = New ListViewItemComparerByInt(e.Column)
            Case "最后更新时间"
                LV1.ListViewItemSorter = New ListViewItemComparerByTime(e.Column)
            Case Else
                LV1.ListViewItemSorter = New ListViewItemComparerByString(e.Column)
        End Select