IBM Lotus Symphony
|
Preruší vykonávanie programu na časový interval, ktorý zadáte v milisekundách.
Wait ms
ms: číselný výraz obsahujúci dĺžku času (v milisekundách) čakania, kým sa vykoná program.
Sub Príkaz_Wait
Dim lTick ako typ Long
lTick = GetSystemTicks()
wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " taktov" ,0,"Prestávka trvala"
End Sub