Try the following code in the list box keypress event
LPARAMETERS nKeyCode, nShiftAltCtrl
local lnIndex
lnIndex=this.listIndex
do case
case nKeyCode=5
nodefault
lnIndex=lnIndex-1
if lnIndex<1
lnIndex=1
endif
this.listindex=lnIndex
case nKeyCode=24
nodefault
lnIndex=lnIndex+1
if lnIndex>this.listcount
lnIndex=this.listcount
endif
this.listindex=lnIndex
endcase