tNode = THISFORM.AddNode(oNode) &&  add this top level node
		tNode.Text = al3parnt.cSELF     &&  this record's identity

With THIS.oletreeview.nodes
     oNode=.add(,tvwFirst,"root"+padl(.count,3,'0'),tcDirectory,tcImage)
     *.
     *.
     scan
	oNodex = .Add(oNode.Key, tvwChild, crsNodes.NodeKey, oSubFolder.name, "ClosedFolder","OpenFolder" )
     endscan
endwith