VB中如何延时？

[胖胖的鱼头]

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

[yangao]

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'延迟3秒
Call Sleep(3000)

[ljhdi]

doevents

[zyg0]

'获得开机时间
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 '转让控制权，以便让操作系统处理其它的事件。
Wend

End Sub

[胖胖的鱼头]

kernel32这个包去哪里弄

[wwqna]

windwost自带的！

[Amuclan]

呵呵