VB中如何延时？

Question

例如我想延时3秒再执行下一条语句，如何实现？

Answer 1

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'延迟3秒
Call Sleep(3000)

Answer 2

'获得开机时间
Public Declare Function GetTickCount Lib "kernel32" () As Long
'*************************************************************************
'**函 数 名：mySleep
'**输    入：Optional cin(Long = 500) -
'**输    出：无
'**功能描述：相当于sleep
'**全局变量：
'**调用模块：
'**作    者：影子
'**日    期：2005-03-01 14:43:26
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Public Sub mySleep(Optional cin As Long = 5000)
    Dim Savetime As Long    Savetime = GetTickCount '记下开始的时间
    Savetime = CLng(Savetime) + cin
    While GetTickCount < Savetime
        '循环等待
        DoEvents '转让控制权，以便让操作系统处理其它的事件。
    WendEnd Sub