Puoi usare questo:

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

BlockInput true 'blocca tastiera e mouse 
BlockInput False ' sblocca