Option Explicit
Dim Minutos As Integer
Dim Segundos As Byte
Private Sub Form_Load()
Timer1.Interval = 1000
Minutos = 2
Segundos = 0
Label1.Caption = Format(Minutos & ":" & Segundos, "Short Time")
End Sub
Private Sub Timer1_Timer()
If Segundos > 0 Then
Segundos = Segundos - 1
ElseIf Segundos = 0 Then
Minutos = Minutos - 1
If Minutos = -1 Then
Minutos = 0
Label1.Caption = Format(Minutos & ":" & Segundos, "Short Time")
Timer1.Enabled = False
Else
Segundos = 59
End If
End If
Label1.Caption = Format(Minutos & ":" & Segundos, "Short Time")
End Sub