Wait Statement

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

Syntax:

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

Parameters:

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

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

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

Example:


Sub ExampleWait
Dim lTick As Long
    lTick = GetSystemTicks()
    Wait 2000
    lTick = (GetSystemTicks() - lTick)
    MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
End Sub

Please support us!