VB - Benutzereingaben blockieren

Public Declare Function BlockInput Lib "user32" ( _
    ByVal BlockIt As Boolean) _
As Boolean

''' <summary>
''' Diese Funktion blockiert Maus- und Tastatureingaben für eine bestimmte Zeit
''' </summary>
''' <param name="Time">Gibt an (in ms) wie lange Maus und Tastatur blockiert werden sollen</param>
Public Sub BlockUserInput(ByVal Time As Long)
    BlockInput(True)
    System.Threading.Thread.Sleep(Time)
    BlockInput(False)
End Sub