Blocking Keyboard/Mouse Using API

Code:

---

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

---

Code:

---

    Private Sub BlockInputButton1_click ()
        apiBlockInput(1) 'This will block input/mouse...
        System.Threading.Thread.Sleep(x) '...for x amount of time (in miliseconds)
        apiBlockInput(0) 'This will unluck it after x amout of time has passed
    End Sub

---