Function tree_ViewLoad(ref Cancel)
	local i
	local j

	tv.ImageList = il

	for i = 1 to 20
		tv.Nodes.Add(blank, blank, chr(asc("a") + i), "item "|str(i), 1, blank)
		for j = 1 to 10
			tv.Nodes.Add(chr(asc("a") + i), 4, "c"|str(j)|str(i), "sub item" | str(j), 1, blank)
		end for
	end for
end function		

Function tv_NodeClick(Node)
	screen print 10 30 0 15 Node.Key
end function