This works better but a single down arrow seems to place the focus in the listbox
myList1 and the next down arrow has the cursor on the top line of the listBox.
Thanks
Steve Elster

LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode = 24
wait wind time 2.0 "pressed down arrow key"
thisForm.myList1.listIndex= thisForm.mYlist1.Top
thisform.myList1.setFocus()
wait wind time 2.0 "In List1 having thisForm.mYlist1.Top highlighted"
thisform.myList1.click()
nodefault && this helped
endif