Wait Statement

αž•αŸ’αž’αžΆαž€β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈ αž€αŸ’αž“αž»αž„β€‹αžšαž™αŸˆβ€‹αž–αŸαž›β€‹αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹β€‹αž‚αž·αžβ€‹αž‡αžΆβ€‹αž˜αž·αž›αŸ’αž›αžΈβ€‹αžœαž·αž“αžΆαž‘αžΈΒ αŸ”

Syntax:

Wait millisec

Parameters:

millisec αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž›αŸαž αžŠαŸ‚αž›β€‹αž˜αžΆαž“β€‹αž…αŸ†αž“αž½αž“β€‹β€‹β€‹αž–αŸαž›β€‹αžœαŸαž›αžΆ (αž‚αž·αžβ€‹αž‡αžΆβ€‹αž˜αž·αž›αŸ’αž›αžΈβ€‹αžœαž·αž“αžΆαž‘αžΈ) αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αžšαž„αŸ‹αž…αžΆαŸ†β€‹αž˜αž»αž“β€‹αž–αŸαž›β€‹αž€αž˜αŸ’αž˜αžœαž·αž’αžΈβ€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·Β αŸ”

Error codes:

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!