¿Como hacer que no siga ejecutandose el programa hasta que termine Timer?

[erbuson]

Hola:

Prueba este ejemplo para captar la idea:


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
MsgBox "Han pasado los segundos activamos segundo Timer"
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
' Aqui lo que tu quieras
End Sub

Si no lo ves claro, consulta de nuevo.

Saludos