VB延迟一半都是用TIMER 但是会打断当前过程

用SLEEP程序会卡死直到计时完成

小编找到最好的解决办法 封装成了函数 供大家调用 优点不会卡住窗体，时间可以按分钟计算

模块：

        Public Function yanchi(ByVal tsj As Long)  'call yanchi(30)

            Dim Savetime As Single

            Savetime = Timer '记下开始的时间

            While Timer < Savetime + tsj '循环等待 - 秒

            DoEvents '转让控制权，以便让操作系统处理其它的事件。

            Wend

        End Function

窗体：

Call yanchi(5) '意思就是延迟5秒