LPARAMETERS nKeyCode, nShiftAltCtrl DO CASE CASE nKeyCode = ENTERKEY NODEFAULT KEYBOARD "{TAB}" CASE INLIST(m.nKeyCode, 88, 120, 116, 84, 121, 89) * User typed x, X, T, or t. IF NOT THIS.Value THIS.Value = .T. THIS.InterActiveChange() && Depending on your ProgrammaticChange code. ENDIF NODEFAULT CASE INLIST(m.nKeyCode, 102,70, 78, 110) * User typed F, f, n, or N. IF THIS.Value THIS.Value = .F. THIS.InterActiveChange() ENDIF NODEFAULT OTHERWISE ENDCASE