>Is it possible to have the relative row always at row no 1, i tried to do something like
>
>thisform.grid1.relativerow=1 in the scrolled event
>
>but this gives me an error, any other ideas?

a start point:

* BeforeRowColChange
LPARAMETERS nColIndex
IF m.This.RowColChange#0
     thisform.LockScreen = .T.
ENDIF
* AfterRowColChange
LPARAMETERS nColIndex
PRIVATE kr
FOR kr=2 TO m.This.RelativeRow
	=Grid::DoScroll(1)
ENDFOR
thisform.LockScreen = .F.