14-08-20 01:06 AM
Answered! Go to Answer.
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 17-08-20 04:38 AM
17-08-20 06:50 PM
19-08-20 05:02 AM
19-08-20 06:24 AM
20-08-20 07:15 AM
21-08-20 06:06 AM
21-08-20 02:10 PM
22-08-20 08:38 PM
22-08-20 08:42 PM
