>>Updated form keypress event (for future and lurkers):
>>

>>   DO CASE
>>      CASE nKeyCode = 18 .AND. nShiftAltCtrl = 0  && Page Up
>>         *--TCH 01/11/2006 Issue#3841 Courtesy Gregory Adam UT Thread 1085658
>>         NODEFAULT
>>         IF VARTYPE(THISFORM.ACTIVECONTROL) = "O" .AND. !ISNULL(THISFORM.ACTIVECONTROL) .AND. ;
>>               PEMSTATUS(THISFORM.ACTIVECONTROL, 'SetFocus', 5)
>>            THISFORM.ACTIVECONTROL.SETFOCUS()
>>         ENDIF
>>*--Etc
>>

>
>Think you can shorten this a bit since vartype returns 'X' for null
>

>if( (vartype(m.thisform.ActiveControl) = 'O') and  PEMSTATUS(m.thisform.ActiveControl, 'SetFocus', 5) )
>...
>endif
>

I believe vartype(thisform.ActiveControl) will bomb out.