Deshabilitar el teclado via Visual Basic

[A.H.H]

Hola con este ejemplo lo puedes hacer
coloca en un formulario un timer y agrega un modulo al proyecto y:

'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

'-----Programa-----
'Durante 10 segundos el teclado y mouse quedaran bloqueados'

Private Sub Form_Load()
msgbox "'Durante 10 segundos el teclado y mouse quedaran bloqueados"
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 "TIEMPO! desbloqueado"
End Sub



CON ESTO DESHABILITAS EL TECLADO Y EL RATON TAMBIEN


SALU2