Quizá necesitemos realizar pausas entre procesos, funciones...
Llamada: Espera(5)Sub Espera(Segundos As Single)Dim ComienzoSeg As SingleDim FinSeg As SingleComienzoSeg = TimerFinSeg = ComienzoSeg + SegundosDo While FinSeg >; TimerDoEventsIf ComienzoSeg >; Timer ThenFinSeg = FinSeg - 24 * 60 * 60End IfLoop End Sub