FUNCTION Deactivate(b_Estado)
 
DECLARE INTEGER SystemParametersInfo IN USER32.DLL  ;
LONG uAction,   ;
LONG uParam,   ;
STRING lpvParam,  ;
LONG fuWinIni
 
uAction  = 97
lpvParam = '0'
fuWinIni = 0
 
If b_Estado = .T. 
   * deshabilita las teclas
   uParam   = 1
   n_Resultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)
Else
   * habilita las teclas
   uParam   = 0
   n_Resultado = SystemParametersInfo(@uAction,@uParam,lpvParam,@fuWinIni)    
EndIf
 
RETURN n_Resultado
 
ENDFUNC