sub wait(t)'暂停t秒dim i as integerwhile i<=t*10application.doeventsthreading.thread.sleep(100)end whileend sub