haz lo sgte...
1°- Definde 2 variables, una guardará la posicion del item seleccionado inicialmente (PosInicial) y la otra, almacenara la posicion que quedará seleccionada despues (PosFinal)
2° Identifica cual es el item que está seleccionado actualmente
For I=1 to listview.listittems.count
if listview.listittems(i).selected=true then
PosInicial=i
end if
next
3° Identifica si se presiono la flecha hacia arribao hacia abajo y procede a seleccionar el item que corresponda
Select case keycode
case 38 'hacia arriba
PosFinal= PosInicial - 1
listview.listittem(PosFinal).selected=true
case 40 'hacia abajo
PosFinal=PosiInicial + 1
listview.listittem(PosFinal).selected=true
end select
todo esto lo haces en el evento KeyDown del listview, cuando llega al primer y al ultimo registro no probé si da algun error o no, eso te toca veriguarlo(y resolverlo si se necesita) a ti.
espero te ayude