Si la memoria no me falla la API
BlockInput hace eso; nada mas que esta funcion creo que tambien bloquea el mouse.
Código:
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
' Para bloquear:
BlockInput True
' Para desbloquear:
BlockInput False
Saludos