yo tengo un codigo el cual bloquea el mouse y el teclado por un determinado tiempo:
Bloquea el mouse y el teclado
'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
'-----Programa-----
'Añadir un timer en el formulario
'Durante 10 segundos el teclado y mouse quedaran bloqueados
Private Sub Form_Load()
Timer1.interval = 1000
BlockInput True
End Sub
Private Sub Timer1_Timer()
Static contador As Integer
contador = contador + 1
If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub
Espero que esto te sirva
JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA