Amazing Code
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
Speed deprivation at its best
Original Author: Demix Majena
Code
Sub Sleep(ByVal MillaSec As Long, Optional ByVal Freeze As Boolean = False)
Dim tStart#, Tmr#
tStart = Timer
While Tmr < (MillaSec / 1000)
Tmr = Timer - tStart
If Freeze = False Then DoEvents
Wend
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.