Dim apptitle
apptitle = "Calculator"

do while true
    kill_app()
    WScript.Sleep 10000 'pause script
loop

sub kill_app()
    Dim objShell
    Set objShell = CreateObject("WScript.Shell")
    objShell.AppActivate apptitle
    success = objShell.appactivate(apptitle)
    if success then
        objShell.SendKeys "%{F4}"
    end if
end sub