title: "BlockInput" Function is Not Working in Program
body: <p>I am creating a program that will click the screen wherever the user asks it to. But I want to disable mouse movement/clicking while the program performs the click, otherwise if the user is moving the mouse when the program performs the click it could drag the mouse away from where the mouse was supposed to click.</p>
  
  <p>Currently I've tried using:</p>
  
  <pre><code>Private Declare Function BlockInput Lib "user32" Alias "BlockInput" (ByVal fBlock As Boolean) As Boolean
  </code></pre>
  
  <p>&amp;</p>
  
  <pre><code>Private Declare Function BlockInput Lib "user32" Alias "BlockInput" (ByVal fBlock As Integer) As Integer
  </code></pre>
  
  <p>And then calling either <code>BlockInput(True/False)</code> or <code>BlockInput(1/0)</code> depending on how I declare the `BlockInput' function.</p>
  
  <p>Currently neither stops the mouse from moving when I drag it across the screen.</p>
  
  <p>Is there something I need to include in my code to allow this function to work? I'm aware that disabling the mouse this way might also disable the program itself from performing the click as well but I haven't even been able to test that since I can't get that far.</p>
  
  <p>Any help is appreciated, thank you!</p>