Dos Timer y uno no funciona.

[pkj]

Para hacer la cuenta atrás solo tienes que poner un timer con interval 1000 e ir descontando segundos cada vez que entras.
Si es durante mucho tiempo quizá te interese hacerlo con un interval menor aún y hacer la cuenta atras comparando la hora actual con la hora anterior.
Simplificando. Suponiendo que quieres esperar 3600 segundos (1 hora):

Código vb:

Dim TiempoEspera As Long
Dim HoraActual As Long
 
Private Sub Command4_Click()
  TiempoEspera = 3600
  HoraActual = Int(Timer)
  TimerCuentaAtras.Interval = 100
  TimerCuentaAtras.Enabled = True
End Sub
 
Private Sub TimerCuentaAtras_Timer()
  If HoraActual <> Int(Timer) Then
    HoraActual = Int(Timer)
    TiempoEspera = TiempoEspera - 1
    If TiempoEspera <= 0 Then
      TimerCuentaAtras.Enabled = False
      MsgBox "Tiempo transcurrido"
    End If
  End If
End Sub
 

Saludos