BlockInput(1)
Run("Control Desk.CPL")
WinWaitActive("Display Properties","OK",5)
if WinActive("Display Properties","OK")  Then
	BlockInput(1)
	Send("^{Tab}")
	WinWaitActive("Display Properties","Desktop",5)
	Send("^{Tab}")
	WinWaitActive("Display Properties","Screen Saver",5)
	Send("^{Tab}")
	WinWaitActive("Display Properties","Appearance",5)
	Send("^{Home}")
	Sleep(250)
	Send("!C")
	Sleep(250)
	Send("H")
	Sleep(250)
	Send("{Down 3}")
	Sleep(250)
	Send("!A")
	WinWaitActive("Display Properties","Appearance",10)
	Send("{Escape}")
EndIf
BlockInput(0)
;
Exit
;
Func xit()
	BlockInput(0)
	Exit
EndFunc