Private Declare Function timeGetTime Lib "winmm.dll" () As Long '声明dllPrivate Sub Form_Load() slee(1000) '调用延时1秒子程序 End SubPrivate Sub sleep(seconds As Integer) '延时子程序 Dim Temp As Variant Temp = timeGetTime 'timeGetTime 函数, 此一函数会传回 Windows 开机以来所经过的时间,时间单位是 1/1000 秒 While timeGetTime - seconds < Temp DoEvents Wend End Sub具体其他的需要看相关文档说明
slee(1000) '调用延时1秒子程序
End SubPrivate Sub sleep(seconds As Integer) '延时子程序
Dim Temp As Variant
Temp = timeGetTime 'timeGetTime 函数, 此一函数会传回 Windows 开机以来所经过的时间,时间单位是 1/1000 秒 While timeGetTime - seconds < Temp
DoEvents
Wend
End Sub具体其他的需要看相关文档说明