Private Sub ListView1_ColumnClick(Index As Integer, ByVal ColumnHeader As MSComctlLib.ColumnHeader) Dim a As String, i As Integer ListView1(Index).Sorted = True ListView1(Index).SortKey = ColumnHeader.Index - 1 For i = 1 To ListView1(Index).ColumnHeaders.Count a = ListView1(Index).ColumnHeaders(i).text If Right(a, 1) = "▽" Then ListView1(Index).ColumnHeaders(i).text = Left(a, Len(a) - 1): Exit For Next ColumnHeader.text = ColumnHeader.text + "▽" End Sub
Dim a As String, i As Integer
ListView1(Index).Sorted = True
ListView1(Index).SortKey = ColumnHeader.Index - 1
For i = 1 To ListView1(Index).ColumnHeaders.Count
a = ListView1(Index).ColumnHeaders(i).text
If Right(a, 1) = "▽" Then ListView1(Index).ColumnHeaders(i).text = Left(a, Len(a) - 1): Exit For
Next
ColumnHeader.text = ColumnHeader.text + "▽"
End Sub