Search Tools Links Login

Amazing Code

Speed deprivation at its best

Original Author: Demix Majena


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
End Sub

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 74 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.