On a form with a Grid
Grid MouseDown Event:
PUBLIC cInitialnYCoord, TopDist, BottomDist, RSUp,RSDown
cInitialnYCoord = nYCoord
Grid MouseMove Event
IF nButton = 1
IF nYCoord > cInitialnYCoord +18
this.DoScroll(0) && scroll up
ENDIF
IF nYCoord = cInitialnYCoord
RETURN...