Private Sub ListView1_ColumnClick(ByVal ColumnHeader As _
  MSComctlLib.ColumnHeader)
        If columheader = 1 Then
            SortListView(listview1, 0,stNumeric,lvwAscending)
        ElseIf ColumnHeader = 2 Then
            '
        Else
            Exit Sub
        End If
End Sub