定时器的问题

Question

在一个VB的模块中，没有窗体，只有sub main()和sub dsj()。怎样实现定时调用sub dsl()?谢谢！

Answer 1

Private Sub Timer1_Timer()
timer1.Interval=10
call dsl()
End Sub

Answer 2

settimer函数.可以创建定时器.
将它封装为类,可以定时引发事件.

Answer 3

我是想在固定的时间调用sub dsj()。如每天的上午10点。

Answer 4

做一个循环好了：
function
do
    doevents
    if cstr(time)="10:00:00" then
        call dsj'调用sub dsj()。
    end if
loop
end function