Anyone tried the new DoEvents?

[TTn]

Does anyone know how to convert the Attribute?

In a module:

Option Explicit On 
Imports System.Runtime.InteropServices
'Attribute VB_Name = "NewDoEvents"
    <DllImport("user32", EntryPoint:="GetQueueStatus")> _
    Private Shared Function GetQueueStatus(ByVal fuFlags As Int32) As Int32
    End Function
    ' API Constants and declare
    ' Constants used by GetQueueStatus API function
    Private Const QS_HOTKEY = &H80
    Private Const QS_KEY = &H1
    Private Const QS_MOUSEBUTTON = &H4
    Private Const QS_MOUSEMOVE = &H2
    Private Const QS_PAINT = &H20
    Private Const QS_POSTMESSAGE = &H8
    Private Const QS_SENDMESSAGE = &H40
    Private Const QS_TIMER = &H10
    Private Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
    Private Const QS_INPUT = (QS_MOUSE Or QS_KEY)
    Private Const QS_ALLEVENTS = (QS_INPUT Or QS_POSTMESSAGE Or QS_TIMER Or QS_PAINT Or QS_HOTKEY)
    Private Const QS_ALLINPUT = (QS_SENDMESSAGE Or QS_PAINT Or QS_TIMER Or QS_POSTMESSAGE Or QS_MOUSEBUTTON Or QS_MOUSEMOVE Or QS_HOTKEY Or QS_KEY)
    Private Const QS_MESSAGES = (QS_POSTMESSAGE Or QS_SENDMESSAGE)           ' Not MS standard constant
    Private Const QS_STANDARD = (QS_HOTKEY Or QS_KEY Or QS_MOUSEBUTTON Or QS_PAINT)   ' Not MS standard constant
    ' Enumerator to determine what messages are watched
    Public Enum QueueMessagesUsed
        All_Inputs = QS_ALLINPUT
        All_Events = QS_ALLEVENTS
        Standard = QS_STANDARD
        Messages = QS_MESSAGES
        InputOnly = QS_INPUT
        Mouse = QS_MOUSE
        MouseMove = QS_MOUSEMOVE
        Timer = QS_TIMER
    End Enum
    Private m_lQueueUsed As QueueMessagesUsed
    Public Sub NewDoEvents()
        ' you can choose what to wait on here, simply add constants for the events you wish to allow
        m_lQueueUsed = QueueMessagesUsed.Standard + QueueMessagesUsed.Messages
        ' only if those events you have specified are waiting in the que, then do them
        If GetQueueStatus(m_lQueueUsed) <> 0 Then Application.DoEvents() ' or 'SendKeys.Flush()
    End Sub

This looks like it will work better than just DoEvents, or doing an Application.MessageLoop check.