That's right!!!

But let me write one modifacation to prevent an overflow (if it's a very large loop)

lnI = 0
DO WHILE SomeCondition
...
lnI = lnI + 1
IF lnI = 100
DOEVENTS
lnI = 0
ENDIF
ENDDO