Dim t As Integer
Private Sub Label1_Click()
End Sub
Sub timer1_timer()
Dim m, s As Integer
   t = t + 1
   m = Int(t / 60)
   s = t Mod 60
   Label1.Caption = m & "分" & s & "秒"
   If (t = 999) Then
    Timer1.Enabled = False
    MsgBox ("时间到！！！")
   End If
End Sub
Private Sub Command1_Click()
     Timer1.Enabled = True
    
End Sub