文本框中的实时计时器

Question

我想询问一旦用户点击了“开始”按钮，如何在文本框中显示此实时计时器。并且计时器的格式应该与00:00:01类似，并且可以有1个按钮，但有两个不同的目的，即开始/暂停。我正在使用Userform

提前谢谢！

    Private Sub CommandButton5_Click()
StartStopWatch

End Sub

模块

Dim NextTick As Date, t As Date
Sub StartStopWatch()
t = Time
Call StartTimer
End Sub

Sub StartTimer()
NextTick = Time + TimeValue("00:00:01")
ActivityTracker.TextBox3 = Format(NextTick - t - TimeValue("00:00:01"), "hh:mm:ss")
Application.OnTime NextTick, "StartTimer"
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=NextTick, Procedure:="StartTimer", Schedule:=False
End Sub

谢谢你们，我已经弄清楚了如何使用按钮在txtbox中显示计时器。如何为计时器创建暂停/停止按钮的唯一问题是什么？