Em declarações:
Dim lTEMPO As Long
' Configure a propriedade Interval do controle Timer.
Private Sub Form_Load()
Timer1.Interval = 1000 ' isto representa 1 segundo
lTEMPO = 0
End Sub
Private Sub Timer1_Timer()
lTEMPO = lTEMPO + 1
If lTEMPO >= 120 ' AQUI 120 REPRESENTARÁ 2 MINUTOS
' FAÇA AQUI A SUA AÇÃO
lTEMPO = 0
End If
End Sub
Pronto não precisará se preocupar com o controle, basta controlar a variável, e verificar sua necessidade.
Qualquer coisa poste
vlu//
