让Timer控件每5分钟触发一次事件

Timer控件的Interval属性可以设置为0到65535之间的任意直，所以用Timer触发事件的最大时间间隔只能有65秒，因此如何能设置更长的时间间隔呢？可以在事件中建立代码，用系统时间确定这个时间间隔。 　　　　　　　　　　　　　　
    Dim dtNextTime as Date
    
    Private Sub Form_load()
    Timer1.interval=500
    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函数，它用于计算在将来的五分钟内的时间。