SELECT cursor
GO top
WITH thisform.grilla
.refresh
.setfocus
nRows=INT(FLOOR( (.Height - .HeaderHeight - IIF(INLIST(.scrollbars,1,3),17,0))/.rowHeight)/2)
ENDWITH
GO BOTTOM
FOR i=1 TO nRows
IF !BOF()
SKIP -1
ENDIF
ENDFOR
thisform.grilla.SetFocus