参考以下代码，延时5毫秒。
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" 
() As Long 
Private Sub Delay()
  Dim tm1 As Long 
  Do 
    tm1 = timeGetTime 
    While timeGetTime - tm1 < 5 ' 等于 5/1000 = 0.005 秒 
    DoEvents 
   Wend 
    '做某一件工作 
  Loop 
End Sub

[FIELDSET][LEGEND]引自：1楼[/LEGEND]
参考以下代码，延时5毫秒。
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" 
() As Long 
Private Sub Delay()
  Dim tm1 As Long 
  Do 
    tm1 = timeGetTime 
    While timeGetTime - tm1 < 5 ' 等于 5/1000 = 0.005 秒 
    DoEvents 
   Wend 
    '做某一件工作 
  Loop 
End Sub
[/FIELDSET]

回复：
  这个timeGetTime 是取自系统实时时间吗？如果用起来的话DoEvent这个功能是不是相当于校准一下当前窗体内所有定时器的时间，我想10MS定时一次的话那就是把这个5换成10就可以了，如果定时器出现失误的话就是校准一下定时器的时间，接着定时器控件就可以准确无误地运行了吗？

timeGetTime 用于获取WINDOWS已运行的时间，单位为毫秒。DOEVENTS用于将控制权交予系统，主要功能是防止在循环时死机。