使用这样的函数： 
    BOOL CheckMessageQueue() 
    { 
     MSG msg; 
     
     while(PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)){ 
     if(msg.message==WM_QUIT) 
     return FALSE; 
     TranslateMessage(&msg); 
     DispatchMessage(&msg); 
     } 
     return TRUE; 
    } 
    该函数可以实现DoEvents的效果。但有一点不同，如果该函数返回FALSE，说明用户按下了关闭按钮。 

这种方法比DoEvents强，VB的这条语句会让CPU占有率到达100%，监视消息队列则没有这个问题。可能的话应该让VB程序也这样写