bloquear teclado

[foreneo]

alguien que sepa como hacerle para bloquear el teclado en windows xp sp2
estoy usando este codigo


Private Declare Function SystemParametersInfo Lib "User32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SCREENSAVERRUNNING = 97&


Private Sub Form_Load()
Dim lngRet As Long
Dim blnOld As Boolean

lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, blnOld, 0&)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, blnOld, 0&)
End Sub

pero no funciona para nada, alguien que pueda ayudarme?