Dim lvi As ListViewItem

tipo definito dall'utente non definito!!
boh...