VB countdown

[nostalgia]

Ho fatto un programmino che fa il countdown dei secondi.

Public cnt As Integer

Private Sub Form_Load()
cnt = 0
End Sub

Private Sub Timer1_Timer()
pre = 120
cnt = cnt + 1
Text1 = pre - cnt
Text1.Refresh
If cnt = pre Then
Text1.Visible = False
Form1.Refresh
Call esegui
End If
End Sub


I secondi sono carini ma io vorrei che il countdown fosse visualizzato in minuti.
Ma come al solito mi areno sulle cose più semplici.
Come faccio a dire che non sono 120 secondi ma 2:00 minuti?!?!?
Dove sbaglio?
Grazie in anticipo a chi mi aiuterà

[JamesD]

Dim min As Integer, sec As Integer

Private Sub Form_Load()
'imposti minuti e secodni in base al tempo da cui vuoi partire
min = 2    
sec = 0

lblTempo.Caption = min & " : " & sec
End Sub

Private Sub Timer1_Timer()
If sec = 0 Then
    min = min - 1
    sec = 59
Else
    sec = sec - 1
End If

lblTempo.Caption = min & " : " & sec

End Sub

Questa è una soluzione

[nostalgia]

FUNZIONA!!!!!!!




GRAZIE MILLE!!!