Bom dia!!

Não testado!

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) 
'Classifica baseado no cabeçalho     
     
    With ListView1 
        .SortKey = ColumnHeader.Index - 1 
        If .SortOrder = lvwAscending Then 
            .SortOrder = lvwDescending 
        Else 
            .SortOrder = lvwAscending 
        End If 
        .Sorted = True 
    End With 
End Sub 

Att

Não é bem isso que eu preciso,

a questão é: quando eu iniciar o formulário a listview deverá classificar automaticamente os itens da coluna "Data" (primeira coluna).

Eu achei um código que funciona, porem como os dados que preciso classificar são em formato de data não está dando certo.

With ListView1
.SortKey = 0 'numero da coluna que deverá ser classificada como data
.SortOrder = lvwDescending '- descendente 'ou lvwAscending - ascendente
.Sorted = True
End With

Transforma data em número, faz o q vc quiser e depois exibe como data...

zoo, agora estou no celular, mas se pesquisar no fórum por classificar listview, encontrará vários tópicos, eu já anexei alguns modelos.

Não consegui converter as datas para número, fiz de várias formas mas não funciona. Usando o código abaixo como faço para usar uma conversão?
With ListView1
.SortKey = 0
.SortOrder = lvwDescending
.Sorted = True
End With