纵横进度条/画板进度条

.如果真 (时间类型 ＝ 0)
int64.QuadPart ＝ -10 × 延迟时间 × 1000 × 1000
.如果真结束
.如果真 (时间类型 ＝ 1)
int64.QuadPart ＝ -10 × 延迟时间 × 1000
.如果真结束
.如果真 (时间类型 ＝ 2)
int64.QuadPart ＝ -10 × 延迟时间
.如果真结束
hTimer ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
.判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
处理事件 ()
.判断循环尾 ()
CloseHandle (hTimer)