Boa noite!!

não olhei seu anexo..

veja um ex:

ListView1.SortKey = 4 
ListView1.SortOrder = lvwDescending
ListView1.Sorted = True

' ---Clique no título da coluna p/ classificar----------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ListView1.Sorted = False
    ListView1.SortKey = ColumnHeader.Index - 1
    
    If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
        Else
        ListView1.SortOrder = lvwAscending
    End If
ListView1.Sorted = True
End Sub

JoseA e alexandre os dois exemplo não faz o que queria, porque ele só ta organizando os dias não a data inteira,
ele faz assim
01/01/2011
01/02/2011
01/03/2011
01/04/2012
02/01/2011
02/02/2011

01/04/2012
01/05/2012
02/04/2012 e assim por diante, fica meio fora o ano os meses, só fica em ordem os dias

queria que fosse assim se tiver jeito

01/01/2011
02/01/2011
03/01/2011
01/02/2011
02/02/2013
03/02/2013
e assim sucessivamente

agora se listview não oferece esse suporte, tem outro jeito manha que possa da certo