来自「详细介绍Ｍ８两版间通讯」· 代码 · 共 21 行

Attribute VB_Name = "TimeDelay"
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private lngStartTime As Long   'time in msec
Public Sub StartTimer()
    lngStartTime = timeGetTime()
End Sub
Public Function EndTimer() As Double
    EndTimer = timeGetTime() - lngStartTime
End Function
Public Sub Delay(msdelay As Long)
   ' creates delay in ms
   Dim Temp As Double
   StartTimer
   Do Until EndTimer > (msdelay)
   DoEvents
   Loop
End Sub

'这个延时小程序,不太好.