Well Fabio, I got to eat crow :-(, your code did work, I had not removed the lostfocus code but I did have to change some syntax:

Grid.Init
*!* ADDPROPERTY(m.this,'LastColumn',0)
This.AddProperty("LastColumn",0)

Grid.AfterColRow
LPARAMETERS nColIndex
*!* IF m.nColIndex=1 AND m.this.LastColumn=m.this.ColumnCount AND INLIST(LASTKEY(),9,13)
*!*	SKIP 1
IF m.nColIndex=1 AND m.this.LastColumn=m.this.ColumnCount AND !INLIST(LASTKEY(),5,9)
	KEYBOARD '{DNARROW}'
ENDIF

Thanks a lot