Const SetTime As Long = 30 '设定时间
'Timer1.Enabled 属性设为 True
'Timer1.Interval 属性设为 1000
Private Sub Timer1_Timer()
Static Tm As Long
Tm = Tm + 1
If Tm >= SetTime Then
MsgBox "时间到!", vbInformation, ""
Timer1.Enabled = False
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024