*!* 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 Sample