模拟VB的DoEvents函数