DO WHILE This.RelativeRow<>1 IF This.RelativeRow>1 This.DoScroll(0) ELSE This.DoScroll(1) ENDIF ENDDO