Set objShell = CreateObject("WScript.Shell") If objShell.AppActivate("ProjectToStop.bld - Visual Build Professional") Then objShell.SendKeys "^{Break}" ' send Ctrl+Break End If