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

没多少分了。看看这段代码，谢谢
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