WScript.Shell问题求教

Question

Set R = CreateObject("WScript.Shell")
result=R.popup("定时关闭", 3, "标题", vbOKCancel)
以上语句,按资料上说,弹出框会在3秒后自动关闭,并返回-1,我运行后它不会自动关闭,必须要点按钮才能关.为什么?

Answer 1

'5秒后自动关闭msgbox 5000即5秒设置
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As LongPrivate Sub Form_Load()
        MessageBoxTimeout Me.hwnd, "Hello World", "Tips", vbInformation, 0, 5000
        Unload Me
End Sub

Answer 2

第二句改成这样：
result=R.popup("定时关闭", 3, "标题")