• Home
 · 
• Coding Standards
 · 
• Amazing Code

Amazing Code

Speed deprivation at its best

Rate Amazing Code

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

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