Option Explicit
Dim starttime As Variant,endtime As Variant

Private Sub cmdend_Click()
endtime = Now '捕获现在的时间
Timer1.Enabled = True '计时器不可用
txt3.Text = Format(endtime - starttime,"hh:mm:ss")
End Sub

Private Sub cmdstart_Click()
txt1.Text = Time '在第一个文本框中显示当前时间
starttime = Now '捕获开始时间
Timer1.Enabled = True '计时器可用
End Sub

Private Sub Timer1_Timer()
txt2.Text = Time '在第2个文本框中显示时间
End Sub

原先此个工程已经编写过了，但是这次想不看书，自己独立编写出来时，却遇到了困难。怎么也是想不起代码是如何操作的。我想自己原先的工程是记忆很深刻的。而且这一路走来都是一步一个脚印的过来的。我不知道这是为什么？也许是源于自己刚开始学习，不熟练吧！没事，正常！我会熟练的，加油！！