PROCEDURE text1.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl If nKeyCode = 13 If This.Value > 100 ThisForm.Text2.SetFocus() EndIf EndIf ENDPROC
PROCEDURE combo1.whenreturn thisform.text1.value <= 100ENDPROC