Try this:

Code:
Sub Pause(Interval As Integer)
    Start = Timer
    Do While Timer < Start + Interval
        DoEvents
    Loop
End Sub

Private Sub Command1_Click()

    Label1.Caption = "120"
    Do Until Label1.Caption = "0"
        Label1.Caption = Label1.Caption - 1
        DoEvents
        Pause 1
    Loop
    
End Sub