Ova procedura zaustavlja izvrsenje procesa na vrijeme koje vi odredite.
Korisna je ukoliko se doticete kodom hardvera (CD, Disk Printer,itd..) koji su sporiji od samo izvrsenja koda tako da necete moci dobiti povratnu inf. ukoliko ne zaustavite izvrsenje.
Ovo je procedura sistema.
Na vrhu modula treba postaviti:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

PreuzmiIzvorni kôd (Text):

1.     Function Zaustavi(Trajanje As Integer)
2.     '-----------------------------------------------------------------------
3.     'Zaustavlja cijeli sistem na odredjeno vrijeme
4.     '1000--1 sekunda
5.     'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
6.     '-----------------------------------------------------------------------
7.         DoEvents
8.         BlockInput True
9.         Sleep Trajanje
10.         BlockInput False
11.     End Function