Hi Goerge,

>I want to know how to use this as I failed to find a way of using it

Try this instead:

thisform.lockscreen=.t.
DO WHILE This.RelativeRow<>1 and This.ActiveRow>int((This.height - This.headerheight- sysmetric(8))/This.rowheight)
	IF This.RelativeRow>1       
		This.DoScroll(1)
	ELSE       
		This.DoScroll(0)   
	ENDIF
ENDDO
thisform.lockscreen=.f.

If you take out the lock screens it looks pretty cool.