Pregunta :
¿Como esperar X segundos?
Respuesta :
Una forma de esperar un número determinado de segundos.
Código:
'Si se quiere usar de forma GLOBAL, insertarlo en un Módulo BAS y declararlo como público
Código:
Private Sub Wait(ByVal nSec As Integer)
'Esperar un número de segundos
Dim t1 As Date, t2 As Date
t1 = Second(Now)
t2 = t1 + nSec
Do
DoEvents
Loop While t2 > Second(Now)
End Sub
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila |