Woohoo! (That's Texan for "This is good stuff!") For anyone interested, got it to work by putting the code in the KeyPress event:

GotFocus:
.lFirstTimeKeypress = .T.


KeyPress:
IF .lShowChoicesOnEntry .AND. .lFirstTimeKeypress
.lFirstTimeKeyPress = .F.
KEYBOARD '{F4}'
ENDIF