14-08-20 01:06 AM
Answered! Go to Answer.
24-08-20 02:24 AM
25-08-20 05:25 AM
25-08-20 01:56 PM
Public Declare Function GetTickCount Lib "kernel32.dll" () As Long
Sub WasteTime()
    ' All this macro will do is run through a loop and then display a dialog.
    Dim NowTick As Long
    Dim EndTick As Long
    Dim Finish As Long
    
    Finish = 10
    
    EndTick = GetTickCount() + (Finish * 1000)
     
    Do
 
        NowTick = GetTickCount()
        DoEvents
 
    Loop Until NowTick >= EndTick
    
    MsgBox "We are finished looping!"
    
End Sub 06-10-20 08:17 AM
06-10-20 11:12 AM
06-10-20 08:34 PM
