VBA (sisse lahendatud algus)
paus 0.5 Msgbox - teateboks (VBA funktsioon)
Loop While Range("lööke") < n
MsgBox "Aitäh! Kohtumiseni!", , "Juku"
End Sub
Mäng_1() Sub Mäng_2()
matu kordus, DoEvents ' Lõpmatu kordus, paus
nge("andmed").ClearContents Range("andmed").ClearContents
Do
all Löök Call Löök
oEvents Call paus (0.5)
op Loop
Sub End Sub
DoEvents - VBA korraldus, ClearContents - lahtriploki
Annab hetkeks juhtimise meetod,
Windows'ile, kustutab lahtriploki sisu
et see uuendaks ekraani seisu
(pp)
pausi pikkusega pp sek
pp - parameeter - pausi pikkus,
annaabi.ee 
