VB 延时代码 Vb 中没有专用的延时函数，这一直都是个令人苦恼的事情，虽然有定时器控件，但它相当于一个循环体，很多时候都不方便，所以多数人都是用API函数 sleep 使用方法如下： 先在窗体级或是模块级中加入声明 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 然后在需要延时的过程中调用 Sleep 1000 ‘延时1000毫秒 此方法简单实用，但当在一个循环体中的时候却有些不方便，本人想了一个办法，自己写了一个，方法如下： 选建立一个过程 Private Sub sleep(ByRef n As Long) Dim x As Long x = Timer * 1000 + n Do While x >= Timer * 1000 DoEvents '响应外部程序函数，这个很重要，不能少，不然会出现卡死现象 Loop End Sub 调用的时候也是跟API函数的方法一样 Sleep 1000 ‘延时1000毫秒 高手请路过。。。。 本文来源：https://www.wddqw.com/doc/dff00475852458fb770b5665.html