Visual Basic - segiridad

amigos necesito una mano con la seguridad de un sistema que esta bajo XP.

en el sistema que yo desarrolle bloquea el teclado y el mause, de esta manera podia inpedir el mal uso del sistema. este sistema lo desarrolle en Win 98 pero estoy mudando a XP y la rutina que yo utilice para el bloqueo no sirve para XP.

si alguno de ustedes prodrian ayudarme con el bloqueo del teclado de antemano les agradesco.

Fijate con ésto:

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
BlockInput True
Sleep 10000
BlockInput False
End Sub