Option Explicit
Dim starttime As Date
Private Sub Form_Load()
starttime = Date & " " & Time
End Sub
Private Sub Timer1_Timer()
Dim m As Date
m = Date & " " & Time
Label1.Caption = m
If Round(m - starttime, 6) >= 0.083333 Then
MsgBox "时间到"
starttime = m
End If
End Sub