Public Declare Function apiBlockInput Lib "user32" Alias "BlockInput " (ByVal fBlock As Integer) As Integer

 apiBlockInput(1)