Aşağıdaki fonksiyon programın herhangi bir yerinden
Bekle(5) şeklinde çağrıldığında program belirtilen süre kadar
ilerlemeyi durdurur.

Public Sub Bekle(süre As Double)
 Dim baslama
 baslama = Timer
 Do While Timer < baslama + süre
    DoEvents
 Loop
End Sub