2 timers

[jalh1977]

estimados , tengo la siguiente duda, como puedo meter un timer dentro de otro timer, les cuento, tengo un form el cual al cargar esta cada 1 segundo refrescando con el timer1 cuando se cumple la condicion abre una pagina, pero necesito que desde que se habra la pagina pasen 5 segundos y la cierre, en cuanto al abrir y cerrar la pagina no tengo problemas, el problema pasa como cuento los 5 segundos gracias, saludos

[pkj]

Puedes usar 2 timers, y desde el 1 activas el 2 que dura 5 segundos y tiene dentro solo esta línea:
Timer2.enabled=false

En el primer timer esperas que se detenga el segundo:
do until timer2.enabled=false
doevents
loop
o algo asi.

Yo de todas formas lo hice más cómodo con esta sub:

Sub Espera(ByVal Segundos As Long)
Dim Hora As Double
On Local Error Resume Next
Hora = Timer
Do While Timer < Hora + Segundos
DoEvents
Loop
On Local Error GoTo 0
End Sub

La llamas desde el Timer1 con:

Espera 5

y ya esta.

Saludos