Is there a better way to refresh the grid display?

>>I was doing that but in a local variable. Changing to a form property did not make a difference. I did notice that if I set break points, the record pointer stays on the selected record. I cannot seem to pin-point where or what is moving the record pointer.
>>

>>*clmAddDate.header1.click
>>LOCAL lnRec, lsOrder, lnColor
>>STORE "" to lsOrder, lnColor
>>lnRec = RECNO()
>>
>>* tag is the field name
>>lsOrder=ThisForm.mGetTag(This.Tag)
>>lnColor = This.ForeColor
>>* get current text color
>>IF lnColor = RGB(128,0,128)	&& purple color
>>     lnColor = RGB(0,0,0) && black color
>>     SET ORDER TO
>>ELSE
>>     WITH This.Parent.Parent
>>          IF TAGNO(lsOrder)>0 && This index already exists (assume simple indexes tagname=fieldname)
>>	SET ORDER TO (lsOrder)
>>          ENDIF && TAGNO(
>>          lnColor = RGB(128,0,128)	&& purple color
>>          .clmUserId.header1.ForeColor = RGB(0,0,0)
>>          .clmEmpId.header1.ForeColor = RGB(0,0,0)
>>          .clmFullName.header1.ForeColor = RGB(0,0,0)
>>          .clmOrg.header1.ForeColor = RGB(0,0,0)
>>          .clmClasses.header1.ForeColor = RGB(0,0,0)
>>          .clmCity.header1.ForeColor = RGB(0,0,0)
>>          .clmBldg.header1.ForeColor = RGB(0,0,0)
>>          .clmDates.header1.ForeColor = RGB(0,0,0)
>>     ENDWITH
>>ENDIF && lnColor = RGB(
>>This.ForeColor = lnColor
>>This.Parent.Parent.Refresh()
>>
>>GOTO lnRec
>>This.Parent.Parent.clmAddDate.SetFocus
>>

>>
>>>Actually, I looked at my 'resetgridorder' base method that I wrote many years ago and still use in all places. For some reason (maybe the same as in this thread) I stored recno() in variable before SET ORDER, so ...
>
>I would suspect that
>
>This.Parent.Parent.Refresh()
>
>may somehow change the record pointer.