README.md

Description

Speed deprivation at its best

More Info

Submitted On
By	Demix Majena
Level	Advanced
User Rating	2.5 (10 globes from 4 users)
Compatibility	VB 6.0
Category	Coding Standards
World	Visual Basic
Archive File

Source 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