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