VB写的，不能多线程，有时候Timer控件的Timer事件就会被阻塞，无法响应的。建议用循环，再使用GetTickCount这个API来判断然后如果你用Timer的话，记得当道60秒后，使秒的那个变量赋值为0就成！
