t = Timer + 0.5
Do Until t < Timer
    DoEvents
Loop

???

是不是一直循环下去？DoEvents

DoEvents   释放控制权，让程序可以继续响应消息。
在VB里，用来告诉系统，我当前执行的任务是空的，你可以等有时间时再继续执行后面的指令。
        系统就先把你挂到一边，然后检查程序的消息列表，直到消息处理完成后，再说，你可以继续执行后面的指令了。