作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

(原创)利用KERNEL32 API函数实现的通延时函数DELAY()：
使用这个函数，就能轻松的实现启动窗体时需要延时几秒钟的愿望了，而且，不会因为机器性能的不同，而造成动态效果有太大的差别，因为依靠的是时间的间隔（当然，如果还是486就不好说了），精度在0.05秒左右。

Public Declare Function GetTickCount Lib "kernel32" () As Long
Const MS_DELAY = 50 '20FPS

Public Function Delay(Times As Single)
Dim mblnRunning As Boolean
Dim mlngTimer As Long
Dim caculate As Single
mblnRunning = True
caculate = 0
Do While mblnRunning And caculate < Times
    If mlngTimer + MS_DELAY <= GetTickCount() Then
       mlngTimer = GetTickCount()
       caculate = caculate + 0.05
    End If
    DoEvents 'Important,or you can do nothing while delaying!
Loop
End Function

相关软件：