Function Zaustavi(Trajanje As Integer)
    '-----------------------------------------------------------------------
    'Zaustavlja cijeli sistem na odredjeno vrijeme
    '1000--1 sekunda
    'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    '-----------------------------------------------------------------------
        DoEvents
        BlockInput True
        Sleep Trajanje
        BlockInput False
    End Function