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