>LPARAMETERS tcDirection
>IF tcDirection = "UP"
>   THISFORM.Grid.DoScroll( 0 )
>   SKIP -1 IN table
>ELSE
>   THISFORM.Grid.DoScroll( 1 )
>   SKIP IN table
>ENDIF
>