Para bloquera el raton y el teclado:

'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
 
'-----Form-----
'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

Buscar el google tb suele ser una buena opcion...

bloquear teclado si quieres que no activen el administrador de tareas tendrás que bloquearlo también

en el foro puedes encontrar el code posteado muxas veces ya hacia time que no lo preguntaban xD