Gente!!!! tem mais um maluco nesse fórum - TUDO DOS AVESSOS.
Ô Fábio..... leia bem esse código e procure entende-lo - fiz na forma mais ditática possível.
Não copie e cole somente, estude e aprenda.
Private Sub Command2_Click()
'carrega seu list
List1.AddItem "1"
List1.AddItem "2"
List1.AddItem "3"
'declara as variaveis que vai usar
Dim c
Dim Valor As Integer
'atribui o nº de registros na variavel valor
Valor = List1.ListCount
'redimenciona a variavel para o valor total do seu list
ReDim c(List1.ListCount)
'armazena na variavel o registros contido no seu list
For i = 0 To List1.ListCount - 1
c(i) = List1.List(i)
Next i
'limpa ele
List1.Clear
'carrega agora com os dados em ordem decrescente
For i = Valor - 1 To 0 Step -1
List1.AddItem c(i)
Next i
End Sub
'ISSO PODE SER FEITO TAMBÉM NO ÚLTIMO EXEMPLO, porém penso que terá dificuldade em entende-lo
FUUUUUUUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII