Как очистить очередь сообщений на VB?

Формулировка задачи:

Есть долгоиграющий процесс. Пока он ... течет, злобный юзверь давит клаву. Как мне потом все эти мессаги выкинуть из очереди?

Решение задачи: «Как очистить очередь сообщений на VB?»

textual
                            Листинг программы 
                        

                            Public Type MSG
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
 
Public Const PM_REMOVE = &H1
...
Public 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
...
 
Dim ne_figa as MSG
 
Do WHILE PeekMessage(ne_figa,Me.hWnd,0,0,PM_REMOVE):LOOP
                        