Private 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

To Disable
 call SystemParametersInfo(97, True,Cstr(1),0)
To Enable
 call SystemParametersInfo(97, False,Cstr(1),0)

like

private sub cmdDisable_Click()
 call SystemParametersInfo(97, True,Cstr(1),0)
end sub

private sub cmdEnable_Click()
 call SystemParametersInfo(97, False,Cstr(1),0)
end sub