没多少分了。看看这段代码，谢谢
Private Sub Form_Load()
Call Label7_DblClick
End Sub

Private Sub Label7_Click()
Dim dtStartTime As Data, dtEndTime As Data, dtElapsed As Data
Label5.Caption = Time
dtStartTime = Label4.Caption: dtEndTime = Label5.Caption
dtElapsed = Format(dtEndTime - dtStartTime, "hh:mm:ss ")
Label6.Caption = dtElapsed
End Sub

Private Sub Label7_DblClick()
Label4.Caption = Time: Label5.Caption = " ": Label6.Caption = " "
End Sub
可以运行，但是在单击或双击Label7的时候“显示with变量或块变量未设置”
哪错了？谢谢

[解决办法]
As Data---------> As Date