fatto. funziona.
ma con questo?

a me l'errore me lo da' su
itm = lstElencoTipi.ListItems.Add
e mi dice "Error 91: Object variable or With block variable not set"