[Vb6] Tastatur blocken?

[-=Player=-]

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

aufruf:

BlockInput True
BlockInput False