Dim i As Long '新的计时器变量Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
i = i + 1 '计时器按一秒累加一次
If i < 60 Then Exit Sub '如果不够一分钟 则不执行下面的过程 60 单位是秒 当然可以改成 3600 一个小时
i = 0 '当够一分钟了 计时器归0重新计算
MsgBox "一分钟到了" '需要执行的代码
'......................
'......................End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024