Code:Declare Function apiBlockInput Lib "user32" _ Alias "BlockInput" (ByVal fBlock As Integer) As IntegerCode: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



Reply With Quote