Private m As IntegerPrivate mm As Integer, ss As IntegerPrivate mms As String, sss As StringPrivate Sub Command1_Click()Timer1.Enabled = True Timer1.Interval = 500Label1.Caption = mms & ":" & sssEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Form_Load()Timer1.Enabled = Falsem = 180Label1.Caption = "03:00"mms = "03"sss = "00"End SubPrivate Sub Timer1_Timer() m = m - 1 mm = Int(m / 60) ss = m Mod 60 If mm < 10 Then mms = "0" & Trim(Str(mm)) Else mms = Trim(Str(mm)) End If If ss < 10 Then sss = "0" & Trim(Str(ss)) Else sss = Trim(Str(ss))End IfLabel1.Caption = mms & ":" & sssEnd Sub