Sad, nisam te najbolje razumeo da li su u mitanju 12 minuta ili sati. Posto je verovatnije 12 minuta evo koda koji bi trebalo da ti resava problem. Nazalost nisam bio u mogucnosti da isprobam kod tako da mozda ima i neku gresku.
Pod uslovom da ti se taster za pokretanje zove cmdStart, timer zove Timer1 i label je lblPreostalo evo koda:
Dim Minuti, Sekunde As Byte
Private Sub cmdStart_Click()
If cmdStart.Caption = "Start" Then
cmdStart.Caption = "Stop"
Minuti = 12
Sekunde = 0
Timer1.Interval = 1000
Else
cmdStart.Caption = "Start"
Timer1.Interval = 0
End If
End Sub
Private Sub Timer1_Timer()
If Sekunde = 0 Then
Sekunde = 59
Minuti = Minuti - 1
If Minuti = 0 Then
NekaTvojaFunkcija
Timer1.Interval = 0
End If
Else
Sekunde = Sekunde - 1
End If
lblPreostalo.Caption = Minuti & ":" & Sekunde
End Sub
Dodao sam (ne znam da li je trebalo) da na isti taster mozes i da zaustavis odbrojavanje.
Ovde je jedini problem to sto timer nije bas precizan jer pocinje da odbrojava nov period tek kada zavrsi sa kodom kuji mu je u dogadjaju.
Ako treba jos nesto da se promeni, ovo nije bas ono sto si mislio ili sam dao potpuno pogresan kod - kazi pa da ispravimo stvar.