Application VisualBasic Script

Sub scroll()
    ActiveWindow.LargeScroll Up:=2
End Sub