求刷新功能的实现思路？

[冰天天]

请教一个思路：我想让一段程序每隔5分钟重新运行一次，即刷新功能，用time控件去完成这个功能，请问怎样去写这段代码？谢谢

[xyhv]

Option Explicit
Dim i As Integer
Private Sub Form_Load()
Me.Timer1.Interval = 65535
i = 0
End Sub

Private Sub Timer1_Timer()
If i = 5 Then
'刷新
i = 0
Else
i = i + i
End If
End Sub

[faysky2]

Dim btnTime As Byte
Private Sub Form_Load()
btnTime = 0
Timer1.Interval = 1000 '设置时间间隔为1秒
Timer1.Enabled = True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 1 Then 'UnloadMode为1时Unload 语句被代码调用
Shell App.Path & "\XXX.exe"
End If
End Sub

Private Sub Timer1_Timer()
btnTime = btnTime + 1
If btnTime = 60 * 5 Then
Unload Me
btnTime = 0
End If
End Sub