VBA中如何使用定时器？(50分)

[blue]我想在VBA中每隔5秒执行一个函数，但是我在VBA里没找到定时器，有人说用API创建，但我不知道怎么样用？请大虾帮帮我（工程急用）[/blue]

世态炎凉啊，没人理会我这个小菜鸟
还好还是自己帮了自己
1、用ontime函数
2、用两个windows api函数解决
Public Declare Function SetTimer Lib "user32"
( _
ByVal HWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32"
( _
ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
参考这个网站：http://www.cpearson.com/excel/ontime.htm