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

Attribute VB_Name = "TimeDelay"
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'本线程暂停，时间单位毫秒
Public Declare Function GetInputState Lib "user32" () As Long
'用于监视本线程内是否有键盘鼠标动作

Public Sub Delay(msDelayTime As Long, Optional ExclusiveMode As Boolean = True)
Dim LngTemp As Long, intTemp As Integer, i As Integer
LngTemp = msDelayTime \ 100
intTemp = msDelayTime Mod 100
Sleep intTemp
If ExclusiveMode = False Then
  For i = 0 To LngTemp
    If GetInputState Then
      DoEvents
    End If
    Sleep 100
  Next
  Else
  For i = 0 To LngTemp
    Sleep 100
  Next
End If
End Sub