>>Works perfectly with small problem.
>>Can't find Function GoRec

Oops! I didn't realize I used that function. I will fix it on my blog, but the function is below.

>I tried to use HeaderClass for the column, but then I got an error when I tried to run the form.

This VFP9 SP2 bug may apply to you: If you open this form from the menu, you have to use the menu “Procedure” to open the form instead of “Command”. Otherwise, VFP9 will crash when you open the form.

* GOREC.prg
* Restore record number
* lcAlias is optional
* lcFailCode is optional, indicates where to go (TOP,BOTTOM) if record number can't be restored)
Lparameters lnRecNo, lcAlias, lcFailCode
Local llEof

If Empty(lcAlias)
	lcAlias = Alias()
EndIf

If lnRecNo>Reccount(lcAlias)
	llEof = .t.
EndIf

If lnRecNo<>0 and lnRecNo<=Reccount(lcAlias)
	Go lnRecNo in (lcAlias)
Else
	DO case 
	Case llEof	&& restore at end of file
		Go Bottom in (lcAlias)
		If !Eof(lcAlias)
			Skip in (lcAlias)
		Endif
	Case Empty(lcFailCode)
		* Record pointer stays put
	Case Upper(lcFailCode) = "T"	&& Top
		Go Top in (lcAlias)
	Case Upper(lcFailCode) = "B"	&& Bottom
		Go Bottom in (lcAlias)
	Otherwise
		* Record pointer stays put
	EndCase
EndIf