Visual Basic - bloquear teclao y mouse

Como deshabilitar el teclado y el mouse?

Fijate con ésto si te sirve:

Private Declare Function BlockInput Lib \"user32\" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
BlockInput True
Sleep 10000
BlockInput False
End Sub