Visual Basic - no funciona blockinput

no me funciona la api blockinput en windows xp, porque?

No tiene ninguna restricción para XP, fijate en http://www.mentalis.org/apilist/BlockInput.shtml que está la declaración y un ejemplo.

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