gui treeview

Gui, 2:Add, TreeView, x12 y9 w130 h320 vMyTreeView gMyTreeView,
Gui, 2:Default

;toggels
P1 := TV_Add("Toggle")
	P1C1 := TV_Add("Toggle If", P1)
	P1C2 := TV_Add("Toggle While", P1)

;Regex
P2 := TV_Add("Regex")
	P2C1 := TV_Add("Next Word", P2)

;settings
P3 := TV_Add("Settings")
	P3C1 := TV_Add("New Scripts", P3)
	P3C2 := TV_Add("Run as Admin", P3)

Gui, 2:Font, s12,
Gui, 2:Add, Edit, x152 y9 w470 h320 vSelectedSample,

Gui, 2:Show,x632 y375 h340 w632, AHK Samples
return




MyTreeView:
if (A_GuiEvent != "S")
    return
TV_GetText(SelectedItemText, A_EventInfo)



;Toggles
if SelectedItemText = Toggle IF
	{
SelectedSample=
(
Toggle := !Toggle
If Toggle
	msgbox,T=1
else
	msgbox,T=0
return
)
GuiControl, , SelectedSample, %SelectedSample%
Return
	}

if SelectedItemText = Toggle While
	{
SelectedSample=
(
F1::
    Toggle := !Toggle
     While Toggle{
        Send, {2}
        Sleep 1750
    }
msgbox, done
return
)
GuiControl, , SelectedSample, %SelectedSample%
Return
	}

;Regex
if SelectedItemText = Next Word
	{
SelectedSample=RegExMatch(outvar,"is)(?<=Text to look for )\S+",invar)
GuiControl, , SelectedSample, %SelectedSample%
Return
	}

;settings
if SelectedItemText = New Scripts
	{
SelectedSample=
(
Process, priority, , High
#NoEnv
#Warn, All, Off
#SingleInstance force
SendMode Input
SetWorkingDir %A_ScriptDir%
StringCaseSense, On
SetKeyDelay, 50
SendMode, Input
)
GuiControl, , SelectedSample, %SelectedSample%
Return
	}

if SelectedItemText = Run as Admin
	{
SelectedSample=
(
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
if not A_IsAdmin
    Run *RunAs "%A_ScriptFullPath%"
)
GuiControl, , SelectedSample, %SelectedSample%
Return
	}
Return