Uso a função abaixo, para ordenar as colunas do listview, funciona legal, mas nas colunas de valores, não ordena corretamente.

 

 

Private Sub lstcto_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
  With lstcto
         If (ColumnHeader.Index - 1) = .SortKey Then
           .SortOrder = (.SortOrder + 1) Mod 2
         Else
           .Sorted = False
           .SortOrder = 0
           .SortKey = ColumnHeader.Index - 1
           .Sorted = True
         End If
   End With
End Sub

pessoal, ajua ai

 

Trocas ? Onde ?