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

Sub Disable(blnDisable As Boolean)

result = SystemParametersInfo(97, blnDisable, CStr(1), 0)

End Sub