[Элементы GUI] Как правильно сделать лампочку?

#include <GUIConstantsEx.au3>

Global $hButton, $hButton1
Local $icon
GUICreate("")
$hButton = GUICtrlCreateButton("Включить", 50, 150, 100, 25)
$hButton1 = GUICtrlCreateButton("Выключить", 150, 150, 100, 25)
GUISetState()
Func clip()
$f = RegWrite ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\On.Ico')
        $icon  = @ScriptDir & RegRead ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1" )
      GUICtrlCreateIcon($icon, 20, 0, 20, 32, 32)          
EndFunc 
Func clip1()
$g = RegWrite ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\Off.Ico')
        $icon  = @ScriptDir & RegRead ( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1" )
      GUICtrlCreateIcon($icon, 20, 0, 20, 32, 32)          
EndFunc 


While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $hButton
            clip()
           Case $hButton1
            clip1()
        EndSwitch
WEnd

#include <GUIConstantsEx.au3>
Local $iconOn=@ScriptDir&"\on.ico",$iconOff=@ScriptDir&"\off.ico"
GUICreate("")
$On = GUICtrlCreateButton("Включить", 50, 150, 100, 25)
$Off = GUICtrlCreateButton("Выключить", 150, 150, 100, 25)
$ico=GUICtrlCreateIcon('',0,0,20,32,32);постоянно не стоит создавать один и тот же элемент чтобы потом заполнять его
GUISetState()
Func _LampSet($param)
	Switch $param
		Case "On"
			RegDelete("HKEY_CURRENT_USER\Software\Houm\image\$image");удаление раздела, если нету то всеравно не повредит
			RegWrite( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\On.Ico');Зачем читать параметр после записи?
			If Not @error Then
				GUICtrlSetImage($ico,$iconOn)
			EndIf
		Case "Off"
			RegDelete("HKEY_CURRENT_USER\Software\Houm\image\$image")
			RegWrite( "HKEY_CURRENT_USER\Software\Houm\image\$image", "$image1", "REG_SZ" ,'\Off.Ico')
			If Not @error Then
				GUICtrlSetImage($ico,$iconOff)
			EndIf
	EndSwitch
EndFunc
While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $On
				_LampSet("On")
			Case $Off
                _LampSet("Off")
        EndSwitch
WEnd