codice:
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