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.