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