开头定义下
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
使用办法
Sleep 5000 '休息5秒
一个出色的延时函数
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Declare Function GetTickCount Lib "kernel32" () As Long'功能:延时函数'参数: MilliSecond--延时毫秒数,默认1000毫秒即1秒钟Private Sub Delay(Optional ByVal MilliSecond As Long = 1000)Dim lngStart As LonglngStart = GetTickCountWhile (GetTickCount - lngStart) < MilliSecondSleep 50 '如果不加上这句,CPU使用率会达到100%,网上很多没加上这句DoEventsWendEnd Sub
官网: http://51xuejianzhan.com/dev/20140604/1006.html