Try this:

ThisForm.GRIDHSCODE.SetFocus
...do your code


>there is my code
>
>LOCAL cur_area
>STORE SELECT() TO cur_area
>
>IF !EMPTY(THIS.VALUE)
> SELECT CUR_HSCODE
> GO TOP
> SET NEAR ON
> SET EXACT OFF
> SEEK(ALLTRIM(thisform.text1.Value))
> IF FOUND() then
> ThisForm.GRIDHSCODE.Refresh()
> ENDIF
> SET EXACT ON
> SET NEAR OFF
>ENDIF
>
>SELECT (cur_area)
>
>the problem is the line is not hilighted
>why ?