按键精灵颜色对比程序循环

线程1ID = BeginThread(程序1)Delay 9线程2ID = BeginThread(程序2)Do T = timer do //程序3代码 Loop Until timer - T > 60 * 3LoopSub 程序1() Do T = timer do //程序1代码 Loop Until timer - T > 30 LoopEnd SubSub 程序2() Do T = timer do //程序2代码 Loop Until timer - T > 60 * 2 LoopEnd Sub