Ops...ho sbagliato!
L'API che conosco io blocca sia la tastiera che il mouse...
Cmq, la posto lo stesso:

codice:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

BlockInput true 'blocca tastiera e mouse 
BlockInput False ' sblocca
Ciao.