"
Option Explicit

Public Type POINTAPI
    X As Long
    y As Long
End Type

Private Type Msg
    hwnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    Time As Long
    pt As POINTAPI
End Type

Private Const PM_NOREMOVE = 0
Private Const PM_REMOVE = 1

Private Declare Function TranslateMessage Lib "user32" (lpMsg As Msg) As Long
Private Declare Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As Long
Private 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
'The API_DoEvents is faster then VB DoEvents. The differnce may be much higher if there was more complicated task.

'It's always good to have a replacement for standard VB functions.
Public Sub API_DoEvents()
    Dim wMsg As Msg

    While PeekMessage(wMsg, 0, 0, 0, PM_REMOVE)
        Call TranslateMessage(wMsg)
        Call DispatchMessage(wMsg)
    Wend
End Sub