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