COMPONENTE TIMER

Function Pausar (Quanto As Double, PermiteDoEvents As Integer) As Double
    'executa uma pausa na aplicação
    'quanto = tempo da pausa (em segundos)
    '    pode ter frações de segundos
    'PermiteDoEvents é true ou false
    '     DoEvents permite realizar outras tasks do Windows
    'Timer é uma função do VB que retorna
    '    o nr. de segundos desde meia noite
    ' RETORNO: o tempo de looping
    '    que devido a imprecisão e multitask, pode ser
    '    diferente do valor pedido
    Dim Inicio As Double
    Dim Check  As Double
    Dim Contador As Double
    Contador = Timer
    Inicio = Timer
    Do Until Check >= (Inicio + Quanto)
        Check = Timer
        If PermiteDoEvents Then DoEvents
    Loop
    'o VB dá uma boa precisão em 1/10 de segundo
    'a 1/100 a precisão já é parcialmente comprometida
    'a 1/100 a precisão se perde
    Pausar = (Timer - Contador)
End Function