EnsureVisible? nisam znao da to postoji :)
a nisam nesto ni siguran da to postoji (nemam vb6 da probam) uglavnom ukoliko to ne bude radilo jednostavno selektuj poslednji item.
i btw cini mi se da su indexi itema 0-based (opet, nisam siguran a nemam vb6 na poslu da probam) tako da mozda
ListView1.ListItems.Count treba zameniti sa
ListView1.ListItems.Count - 1 (to ako dobijes index out of bounds gresku)