如何实现每隔5分钟运行一次程序？

每隔5分钟运行一次
sub yy()
msgbox "OK"

end sub

Dim i As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 1000
Timer1.Enabled = True
Form1.WindowState = 1
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 5 Then
i = 0
MsgBox "测试成功!"
End If
End Sub

收到的鲜花

• Artless 于 2012-06-07 19:40 送鲜花  5朵   附言：原创内容

测试成功，每 5秒弹出一个 提示框，不错不错。

https://bbs.bccn.net/thread-332567-1-1.html