בעית קוד בVisual Basic

[Joker]

מטרתי היא לגרום לכך שבלחיצה על Button1,תפסק השליטה במקלדת ובעכבר.
חיפשתי ומצאתי את הקוד הבא:

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

    Private Sub button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         apiBlockInput(1)
    End Sub

השאלה היא: מה לא בסדר פה ?
נוצרת לי השגיאה הבאה:

בקובץ ה-'BlockInput' אין אפשרות לאתר נקודת כניסה בשםDLL 'user32'

תודה לעוזרים.