Function Zaustavi(Trajanje)
    Dim VRIJEME
     
    DoEvents
     
    Trajanje = Trajanje + Timer()
Start:
    VRIJEME = Timer()
    If VRIJEME < Trajanje Then GoTo Start
    End Function