Código: Seleccionar todo
Public Sub SleepFor(ByVal Seconds As Double)
' "Sleep" for the specified number of seconds.
Dim EndTime As Date
EndTime = DateAdd("s", Seconds, Now)
Do
DoEvents
Loop Until Now >= EndTime
End Sub Código: Seleccionar todo
SleepFor 15 ' Pause for 15 seconds. [Enlace externo eliminado para invitados]
Fuente:
