CODE: [Copy to clipboard]Private Sub Command1_Click() Set ws = wscript.CreateObject("wscript.shell") ws.SendKeys ("`") End Sub