QTP Code Segment

Dim WshShell
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"

set WshShell = nothing