Private Sub Command2_Click() Timer1.Enabled = True Timer1.Interval = 1000 shijian = Val(Text1.Text) * 60 Text2.Text = shijian End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() shijian = shijian - 1 Text2.Text = shijian If shijian = 0 Then Timer1.Enabled = False MsgBox ""時(shí)間到"" End If End Sub