'Qswitch.vbs Set TCS = CreateObject("TCScript.Helper") TCS.SendKeystroke "{TAB}" TCS.SendKeystroke "4" TCS.SendKeystroke "{TAB}" Set TCS = Nothing