*!* Begin Sample USE DELETE FILE foo.DBF CREATE TABLE foo (a c(1), b c(1), c c(1), d c(1), e c(1)) FOR i = 1 TO 5 APPEND BLANK REPLACE a WITH [a] REPLACE b WITH [b] REPLACE c WITH [c] REPLACE d WITH [d] REPLACE e WITH [e] ENDFOR GO TOP PUBLIC HowManyEnters HowManyEnters = 0 PUBLIC oForm1 oForm1 = CREATEOBJECT([oForm]) oForm1.SHOW oForm1.AUTOCENTER = .T. DEFINE CLASS oForm AS FORM ADD OBJECT oGrid1 AS oGrid ENDDEFINE DEFINE CLASS oGrid AS GRID ADD OBJECT oColumn1 AS oColumn ADD OBJECT oColumn2 AS oColumn ADD OBJECT oColumn3 AS oColumn ADD OBJECT oColumn4 AS oColumn ADD OBJECT oColumn5 AS oColumn ENDDEFINE DEFINE CLASS oColumn AS COLUMN WIDTH = 20 ADD OBJECT oText1 AS oText ENDDEFINE DEFINE CLASS oText AS TEXTBOX WIDTH = 10 PROC KEYPRESS LPARAMETERS nKeyCode, nShiftAltCtrl IF LASTKEY() = 13 HowManyEnters = HowManyEnters + 1 IF HowManyEnters = 5 KEYB [{DNARROW}] HowManyEnters = 0 ENDIF ENDIF ENDPROC ENDDEFINE *!* End SampleDave