Here is what I have. Disregard the RGB stuff

THIS.backcolor=RGB(255,255,255) && WHITE
THIS.FORECOLOR=RGB(0,0,0) && BLACK
SELECT cr_pr_input
IF !EOF()
SKIP 1
THISFORM.grid1.column6.SetFocus
Thisform.grid1.refresh
ENDIF