Heavy usage w/o DoEvents (the proper way)

  Put this in the General Declarations area for your module:<br>
Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin 
As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long<br>
Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, ByVal hwnd As Long, ByVal wMsgFilterMin As 
Long, ByVal wMsgFilterMax As Long) As Long<br>
Declare Function TranslateMessage Lib "user32" (lpMsg As MSG) As Long<br>
Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As MSG) As Long<br>
<br>
Private Const PM_NOREMOVE = &H0<br>
Private Const PM_REMOVE = &H1<br>
Private Const WM_QUIT = &H12<br>
<br>
Private Type POINTAPI<br>
    X As Long<br>
    Y As Long<br>
End Type<br>
<br>
Private Type MSG<br>
    hwnd As Long<br>
    Message As Long<br>
    wParam As Long<br>
    lParam As Long<br>
    time As Long<br>
    point As POINTAPI<br>
End Type<br>
<br>
<br>
  Put the following in your sub main (after setting blRunning = True):<br>
<pre>
'***********************************************************
'*** Try commenting and uncommenting each of these three ***
'*** methods. Watch your CPU usage when you run each of ***
'*** them. Then go back to using GetMessage.   ***
'***********************************************************
</pre>
Do While blRunning<br>
    '*** use the PeekMessage version if you want to use 100% CPU<br>
    '*** frex to do background processing that doesn't rely on<br>
    '*** windows messages<br>
    'If PeekMessage(Message, 0&, 0&, 0&, PM_REMOVE) Then<br>
    '    Call TranslateMessage(Message)<br>
    '    Call DispatchMessage(Message)<br>
    'End If<br>
<br>
    '*** use the GetMessage version if you only want to do<br>
    '*** processing if there's a message<br>
    If GetMessage(Message, 0&, 0&, 0&) Then<br>
    Call TranslateMessage(Message)<br>
    Call DispatchMessage(Message)<br>
    End If<br>
<br>
    '*** the 'pure vb' poor way to do this<br>
    'DoEvents<br>
Loop<br>