可以这样来实现：
第一步：新建一个VBS的项目模块：
Sub CreateSleepFile(lngMS)
Dim MyFSO, MyFile
Set MyFSO = CreateObject ("s cripting.FileSystemObject")
Set MyFile = MyFSO.CreateTextFile( "D:\MySleep.vbs", True )
MyFile.WriteLine "Ws cript.Sleep " & CLng(lngMS)
MyFile.Close
End Sub
第二步：在画面中添加一个按钮：Button1，设置其Text属性为“Sleep”，在其鼠标单击事件中，选VBS动作，代码如下：
Sub OnClick(Byval Item)
Dim WshShell
Item.Text="Sleep Start..."
Call createsleepfile(5000)
Set WshShell = CreateObject("Ws cript.Shell")
WshShell.Run "D:\MySleep.vbs", ,True
Item.Text="Sleep End"
End Sub
这样就能完成延时5秒了。