Private Sub Command1_Click()
Timer1.Enabled = True '开计时器
End Sub
Private Sub Timer1_Timer()
Dim usertime As Integer
usertime = Text1'可以从文本框中读取用户输入的时间(但是用户输入的时间是小时,该怎么转换呢?)
If Time > usertime Then '如果到了时间【【【这个地方Time是怎么比较的呢?】】】这样好像不对哦。。。 Timer1.Enabled = False '关计时器 MsgBox "时间到"
End If