IBM Lotus Symphony
|
プログラムの実行に割り込みをかけ、ミリ秒単位の指定時間だけ待機させます。
Wait millisec
millisec: プログラムが実行されるまで待つ時間 (ミリ秒) を含む数値表式。
Sub ExampleWait
Dim lTick As Long
lTick = GetSystemTicks()
wait 2000
lTick = (GetSystemTicks() - lTick)
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub