怎么调用VBS里的Sleep

如何调用VBS里的Sleep？
可以这样声明Sleep函数
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
然后调用此函数。

请问如何调用VBS里的Sleep？
我写如下代码但运行出错。对象不支持该属性或方法。

Option Explicit

Private Sub Form_Click()
Dim w As Object
  Set w = CreateObject("WScript.Shell")
  w.sleep 5000
  MsgBox "延时结束"

End Sub


[解决办法]
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 
放在通用里。 


Private Sub Form_Click() 
w.sleep 5000 
MsgBox "延时结束" 

End Sub 

[解决办法]
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long) 
放在通用里。 


Private Sub Form_Click() 
sleep 5000 
MsgBox "延时结束" 

End Sub 

[解决办法]
Sleep是标准API，直接使用：Sleep(1000)'1000毫秒
[解决办法]
声明
调用
[解决办法]
上面的都没仔细看，是VBS，不是VB

正确的：
WScript.Sleep 2000