如何可以实现循环延时？

例如：

for i = 1 to 100

过程1

延时1分钟

过程2

next

sleep

不停地循环肯定占CPU，用Sleep确实会造成程序无响应，怎么办？

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Savetime As Double
Function Timeover(Delay As Long)
     Savetime = timeGetTime
     While timeGetTime < savetime + Delay
     DoEvents
     Wend
End Sub

解决了！！！这个很好使！

[ 本帖最后由 yuk_yu 于 2012-10-23 14:25 编辑 ]

DoEvents() + Sleep() = MyDoEvents()

'Delay Time
Public Function MyDoEvents(Optional ByVal dwMilliseconds As Long = 1)
   MyDoEvents = DoEvents()
   Sleep dwMilliseconds
End Function

我只会C，这些还看不懂，正在学习中