Excel VBA秒表:添加暂停按钮？

Option Explicit

Dim startTime As Double
Dim isPaused As Boolean

Private Sub StartStopButton_Click()
    If TimerLabel.Caption = "" Then
        ' 开始计时
        startTime = Timer
        TimerLabel.Caption = "0.00"
        StartStopButton.Caption = "停止"
        isPaused = False
        Timer1.Enabled = True
    Else
        ' 停止计时
        Timer1.Enabled = False
        TimerLabel.Caption = ""
        StartStopButton.Caption = "开始"
    End If
End Sub

Private Sub PauseButton_Click()
    If isPaused Then
        ' 继续计时
        isPaused = False
        PauseButton.Caption = "暂停"
        Timer1.Enabled = True
    Else
        ' 暂停计时
        isPaused = True
        PauseButton.Caption = "继续"
        Timer1.Enabled = False
    End If
End Sub

Private Sub Timer1_Timer()
    If Not isPaused Then
        ' 更新计时器显示
        TimerLabel.Caption = Format(Timer - startTime, "0.00")
    End If
End Sub