没多少分了。看看这段代码，谢谢

Question

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

Answer 1

As Data---------> As Date