是没是使程序停几秒（毫秒）的语句

Question

DoEvents的效果不太好

Answer 1

'VB中如何使用延时函数？
'声明：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'调用：
'延时1秒
Call Sleep(1000)

Answer 2

用Sleep API函数来实现暂停：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()
    Sleep 100  '使程序暂停100毫秒
End Sub

Answer 3

'声明：
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'调用：
'延时1秒
Call Sleep(1000)