VB - Three ways to pause your program

[BrandonTurner]

Sub Sleep(ByVal MillaSec As Long, Optional ByVal DeepSleep As Boolean = False)
    Dim tStart#, Tmr#
    tStart = Timer
 
 
    While Tmr < (MillaSec / 1000)
        Tmr = Timer - tStart
        If DeepSleep = False Then DoEvents
    Wend
End Sub

Declare Function GetTickCount Lib "kernel32" () As Long
 
Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub

'shortest
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[xiaoyao]

7 way :the best（vb6 delay)pause,doevents(no need cpu)
http://www.vbforums.com/showthread.p...pu)&highlight=

[argusy]

1. 'shortest
2. Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds as Long)

you missed part of it

[VanGoghGaming]

You don't need the "Alias" part unless your chosen name is different from the actual API function name.