X按钮在VBS上不起作用

Question

所以，因为我正在做我曾经做过的编码运行，所以我想制作一个批处理文件，因为我感兴趣。我刚发现一些奇怪的东西，vbs文件右上角的小X不知何故不起作用。到目前为止，我的代码是：

    Dim Msg, Style, Title, Ctxt, Response
        Msg = "Do you want to continue?"    ' Define message.
        Style = vbYesNo  + vbCritical  ' Define buttons.
        Title = "MsgBox Demonstration"    ' Define title.
        Ctxt = 1000
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then
        Msg = "Hello, How Are You Doing?"
        Style = vbYesNo + vbInformation
        Ctxt = 1000
        Response = MsgBox(Msg, Style, Title, Help, Ctxt)
        If Response = vbYes Then
        Else
        Wscript.quit
        End If
    Else
        CreateObject("WScript.Shell").Run "speak.vbs"
    End If

请注意，我重申一切的原因是因为我只在一个代码中有两个VBS文件。顺便说一下，我的意思是没有或取消按钮，我的意思是退出按钮，或者是位于所有程序左上角的带有红色边框的小X.谢谢你的帮助！