vbscript Set objShell = WScript.CreateObject("WScript.Shell") objShell.AppActivate "Program Manager" objShell.SendKeys "^{ESC}" WScript.Sleep 1000 ' Send keystrokes to tile windows objShell.AppActivate "Program Manager" objShell.SendKeys "%{SPACE}" objShell.SendKeys "x"