' Tastatur-Puffer leeren
' - betrifft d. akt. Thread
Public Function kbm_FlushKB() As Boolean
    Dim msgDest As PM_MSG
 
    Do While GetInputState()
        Call PeekMessage(msgDest, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE Or _
          PM_NOYIELD)
        'Call PeekMessage(msgDest, 0, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE Or 
        ' PM_NOYIELD)
    Loop
 
      kbm_FlushKB = True
End Function

^
wurlitzer