直接把Interval 属性设成300000,然后就timer事件中写个end就可以了

5分钟的话应该是这样的吧~

Dim i As Integer
Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 60000
    i=1
End Sub
Private Sub Timer1_Timer()
    If i < 5 Then
        i = i + 1
    Else
        End
    End If
End Sub

可以这样。
也可以Timer1.Interval = 300000，而再不需设置一个全局变量i