For i = 1 To 100
  DoEvents
Next i

Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As _
  Long
Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, _
ByVal uResolution As Long, ByVal lpFunction As Any, ByVal dwUser As Long, ByVal _
uFlags As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) _
'Warte-Routine
 
Public FID As Long
Public Const TIME_PERIODIC = 1