I am finishing conversion of one of my programs to FB5. 

TEKEY tells me that an F key was pressed. Can some tell me how to get find out what F key is pressed?  The old code no longer works, vKeyCode% returns a 0.

Thank  you,

Doug Stemen

char$=TEKEY$
long if ASC(char$)=16
vKeyCode%=PEEK(EVENT+_evtMessage+2)'F key was pressed
select case vKeyCode%
CASE 122   : key$ = "F1"
CASE 120   : key$ = "F2"
CASE 99    : key$ = "F3"
CASE 118   : key$ = "F4"
CASE 96    : key$ = "F5"
CASE 97    : key$ = "F6"
CASE 98    : key$ = "F7"
CASE 100   : key$ = "F8"
CASE 101   : key$ = "F9"
CASE 109   : key$ = "F10"
end select
end select
end if