内有详细注释及测试工程。

说下原理 获取系统时间？

在动态库线程中不断判断...触发事件...

sub sleep(x as interge)
dim a as single,b as single

a=timer
while(a+x>b)
b=timer
wend

end sub


这个也可以嘛