Wait Statement

рд╕рдордпрдХреЛ рдорд╛рддреНрд░рд╛рдХрд╛ рд▓рд╛рдЧрд┐ рдХрд╛рд░реНрдпрд╛рдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рди рд░реЛрдХрд╛рд╡рдЯ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБрд▓реЗ рдорд┐рд▓рд┐рд╕реЗрдХреЗрдгреНрдбрдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреБрд╣реБрдиреНрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

millisec рдкрд░реНрдЦрдиреБрд╣реЛрд╕реН

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдорд┐рд▓рд┐рд╕реЗрдХреЗрдгреНрдб:рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдХрд╛рд░реНрдпрд╛рдХреНрд░рдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рд╣реБрдиреБ рднрдиреНрджрд╛ рдЕрдЧрд╛рдбрд┐рд╕рдореНрдо рдкрд░реНрдЦрд╛рдЙрдирд▓рд╛рдИ рд╕рдордп(рдорд┐рд▓рд┐рд╕реЗрдХреЗрдгреНрдбрд╣рд░реВрдорд╛)рдХреЛ рдорд╛рддреНрд░рд╛ рд╕рдореНрдорд┐рд▓рд┐рдд рдЧрд░рд╛рдЙрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:

Sub ExampleWait

Dim lTick As Long

    lTick = GetSystemTicks()

    Wait 2000

    lTick = (GetSystemTicks() - lTick)

    MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"

End Sub