QTP - UFT - What is the object needed to use sendkeys and show how to scroll up on the web page

Link to Mandatory QTP /UFT Interview Questions to read before Interview

We need to create an object of WScript.Shell

The below example shows how to use Page Up key to scroll up on the web page

Function navigateTOPageTop()
     Set o1 = Createobject("Wscript.Shell")
     browser("name:=browsername").Page("title:=.*").Highlight
     For s = 1 to  4
        o1.SendKeys "{PGUP}"
     Next
     Set o1 = nothing
End Function 

Link to Mandatory QTP /UFT Interview Questions to read before Interview