Amazing Code

by Demix Majena (1 Submission)
Category: Coding Standards
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3^rd February 2021
Rating: (5 Votes)

Speed deprivation at its best

Rate Amazing 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

Download this snippet Add to My Saved Code

Amazing Code Comments

No comments have been posted about Amazing Code. Why not be the first to post a comment about Amazing Code.

Amazing Code

Amazing Code Comments

Post your comment

Difficulty