[Hora Máxima ListView]

bom pessoal consegui este codigo ele esta carregando a hora no formato que quero mas não esta achando a maior hora da coluna listview, esta carregado a primeira que encontra;

como fazer ele procurar a maior hora da coluna?

 

  Dim i As Integer
  Dim maior As Date

For i = 1 To ListAgenda.ListItems.Count
  If Format(ListAgenda.ListItems(i).SubItems(5), 0) > maior Then
    maior = Format(ListAgenda.ListItems(i).SubItems(5), "hh:mm")
  End If
Next i
txtHoraLivre = Format(TimeValue(maior), "hh:mm")

[Hora Máxima ListView]

Alguém pode ajudar??

[Hora Máxima ListView]

   Olá a todos!

Meu primeiro contato com o fórum, espero que esteja seguindo as regras de acordo.

Ajuda: Estou precisando capturar  a maior hora que minha listview apresentar, Exemplo:

________________________________________________

Id | Descrição | Horas | Valor |

1 | Desc1        | 01:20  | 25,00 |

2 | Desc2        | 02:30  | 35,00 |

_________________________________________________

Então: Ao Abrir Formulário preciso que na txtMaiorHora Carregasse 02:30 

Se alguém puder me ajudar....

 

Atenciosamente,

Luciano.