让Timer控件每半秒钟触发一次事件　　　　来源 本站原创　佚名
Timer控件的Interval属性可以设置为0到65535之间的任意直，所以用Timer触发事件的最大时间间隔只能有65秒，因此如何能设置更长的时间间隔呢？可以在事件中建立代码，用系统时间确定这个时间间隔。 　　　　　　　　　　　　　　
Dim dtNextTime as Date

Private Sub Form_load()
    　Timer1.interval=500 '单位毫秒（计算方法：1000毫秒＝1秒）
　Timer1.Enabled=True
　dtNextTime=DateAdd("n",5,Now)
End Sub

Private Sub Timer1_Timer()
　if Now>=dtNextTime Then
　　Timer1.Enabled=False
　　
　　'在此加入你的代码

　　dtNextTime=DateAdd("n",5,Now)
　　Timer1.Enabled=True
　End if
End Sub

此程序的关键是DateAdd函数，它用于计算在将来的五分钟内的时间。

关联文档