ontime.下面是15秒一次Sub test()MsgBox "Hi!"Application.OnTime Now + TimeValue("00:00:15"), "test"End Subsub call()call testsub
这个应该是用到计时器了。。vb我不太懂。。希望能帮到你