function treeView_Click()
		$trash = CheckedNodes($Form.Treeview1)
		$Form.TextBox1.Text = CheckedNodes($Form.Treeview1)
endfunction

Function CheckedNodes($parent)
	dim $i, $nc, $no
	for $i = 0 to $parent.Nodes.Count - 1
		if $parent.tag=1 and not $parent.checked
			$parent.Nodes($i).checked = 0
		endif
		if $parent.checked and $parent.tag<>1
			$parent.tag = 1
			$parent.Nodes($i).checked = 1
		endif
		$checkedNodes=$checkedNodes+CheckedNodes($parent.Nodes($i))
		if $parent.Nodes($i).checked
			$checkedNodes = $checkedNodes + $parent.Nodes($i).FullPath + @crlf
			$no=$no+1
			$nc=$nc+1
		else
			$no=$no+1
		endif
	next
	if $nc=$no and $no>0 and not $parent.checked and $parent.tag<>1
		$parent.checked = 1
		$parent.tag = 1
	else
		if $nc=0 and $no>0 and $parent.checked and $parent.tag=1
			$parent.checked = 0
			$parent.tag = 0
		endif
	endif
	if $parent.tag=1 and not $parent.checked
		$parent.tag=0
	endif
EndFunction