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函数，它用于计算在将来的五分钟内的时间。