VB的TimeSetEvent API多线程的例程