如何调用VBS里的Sleep？

Question

可以这样声明Sleep函数
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
然后调用此函数。请问如何调用VBS里的Sleep？
我写如下代码但运行出错。对象不支持该属性或方法。Option ExplicitPrivate Sub Form_Click()
Dim w As Object
    Set w = CreateObject("WScript.Shell")
    w.sleep 5000
    MsgBox "延时结束"End Sub

Answer 1

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 
放在通用里。 
Private Sub Form_Click() 
    w.sleep 5000 
    MsgBox "延时结束" End Sub 

Answer 2

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 
放在通用里。 
Private Sub Form_Click() 
    sleep 5000 
    MsgBox "延时结束" End Sub 

Answer 3

Sleep是标准API，直接使用：Sleep(1000)'1000毫秒

Answer 4

我知道如何声明此API函数及如何调用。我现在主要的问题是那几句代码为什么出错？如何在VB6里调用VB Script里的Sleep？

Answer 5

上面的都没仔细看，是VBS，不是VB正确的：
WScript.Sleep 2000