prelevare ultimo codice da listbox

[Kahm]

salve a tutti
dovrei prelevare l'ultimo elemento di una listbox

in genere uso questo codice

dim ultimo as integer
dim codice as string
ultimo=me.lst_lista.items.count
codice=me.lst_lista.items(ultimo).text

e puntualmente mi da questo erroe:
System.ArgumentOutOfRangeException - Index non compreso nell'intervallo. Richiesto valore non negativo e minore della dimensione dell'insieme.
Nome parametro: index

nonostante: me.lst_lista.items.count mi restituisce :10!!!!

come posso risolvere il problema?
grazie

[Kahm]

OK RISOLTO
praticamente partiva da un indice di zero
quindi

ultimo=ultimo -1



p.s.
e ci ho perso pure mezz'ora a capire!