vb中的等待函数

需要声明API，声明如下：（模块中）

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

然后，调用的时候是这样的：

DoEvents

Sleep 1000 '这里的单位是ms

Sleep 50000

试试

可能是你后面的数值设置的太小了，感觉不到

还有就是，演示函数Sleep是个API函数，必须对它初始化，在最前面全局那里

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时函数

Private XXx 私有申明，一般不用 一般用Dim代替

Public XXX 公共申明（全局），可以在任何地方调用 但是任何地方不能有与这个重复的 即使是私有的（局部）

Dim XXX 同Private

[Private/Public] Type XXX

XXX As XXX

XXX As XXX

End Type

Type一般是在申明部分，在窗体中不用Private,可以使用Public 模块中都可以

从理论上讲，别名提供了用另一个名子调用API的函数方法。如果你指明了别名，那么 尽管我们按Declare语句后面的函数来调用该函数，但在函数的实际调用上是以别名作为首要选择的。如，以下两个函数(Function,ABCD)声明都是有效的，他们调用的是同一个 SetFocus函数∶

Declare Function SetFocus Lib "user32" "SetFocus" (ByVal hwnd As Long) As Long

Declare ABCD SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

需要注意的是，选用Alias的时候，应注意别名的大小写；如果不选用Alias 时的时候，函数名必须注意大小写，而且不能改动。当然，在很多情况下，由于函数声明是直接从API

文本游览器中拷贝过来的，所以这种错误的发生机会是很少的，但您有必要知道这一点。

最后提醒你一句，API声明(包括结构、常数)必须放在窗体或模块的"通用(General Declarations)段。

数据类型与"类型安全"