DECLARE FUNCTION SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (action As Long, param1 As Long, param2 As long, winIni As Long) As Long DECLARE SUB DisableNow CREATE Form AS QFORM Center CREATE Disabled AS QBUTTON Caption = "Disable" OnClick = DisableNow END CREATE END CREATE SUB DisableNow IF Disabled.Caption = "Disable" THEN Disabled.Caption = "Enable" sendvalue = 0 SystemParametersInfo(97,1,VARPTR(sendvalue),0) ELSE Disabled.Caption = "Disable" SystemParametersInfo(97,0,VARPTR(sendvalue),0) END IF END SUB Form.Showmodal