Amazing Code

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

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.