怎样控制程序运行的速度? (除了用timer控件)

Question

例如有一个button 通过click 事件来   msgbox "kk" 的。 现在我想click 之后， 经过10秒后，再msgbox "kk" , 不想用timer 这个控件。 还要什么好方法 ？

Answer 1

    API函数: sleep()

Answer 2

'调用说明:
'WAIT N
'等待.时间为N*0.05Public Sub Wait(N As Integer)
  Dim ltime As Date
  ltime = Timer()
  While Timer() - ltime <= N * 0.05
    DoEvents
  Wend
End Sub

Answer 3

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)间隔为毫秒!

Answer 4

pausetime = １０
    start = Timer
    Do While Timer < start + pausetime
      DoEvents
    Loop