Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = "00:00:00" If Button1.Text = "开始" Then

Button1.Text = "暂停" Timer1.Enabled = True ElseIf Button1.Text = "暂停" Then Button1.Text = "继续" Timer1.Enabled = False Else Button1.Text = "暂停" Timer1.Enabled = True End If End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False Label1.Text = "00:00:00" Button1.Text = "开始" End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.Eve