>Dear Experts
>
>I use following codes to add data in Treeview control
>

>SELECT myTree
>#DEFINE tvwFirst	0
>#DEFINE tvwLast		1
>#DEFINE tvwNext		2
>#DEFINE tvwPrevious	3
>#DEFINE tvwChild	4
>
>WITH Thisform.OleTreeView.Nodes
>	SCAN
>		IF Empty(ParentID)
>			.Add(,tvwFirst,NodeId,code+ ' '+Trim(NodeText))
>		ELSE
>			.Add(ParentID,tvwChild,NodeId,code +' '+Trim(NodeText))
>		ENDIF
>	ENDSCAN
>ENDWITH
>

>
>How to show all nodes text forecolor=rgb(225,0,0) and
>How to show all child text forecolor=rgb(0,255,0)
>
>Please help

SELECT myTree
#DEFINE tvwFirst	0
#DEFINE tvwLast		1
#DEFINE tvwNext		2
#DEFINE tvwPrevious	3
#DEFINE tvwChild	4

WITH Thisform.OleTreeView.Nodes
	SCAN
		IF Empty(ParentID)
		   oNode = .Add(,tvwFirst,NodeId,code+ ' '+Trim(NodeText))
                   oNode.ForeColor = RGB(255,0,0)
		ELSE
		   oNode = .Add(ParentID,tvwChild,NodeId,code +' '+Trim(NodeText))
                   oNode.ForeColor = RGB(0,255,0)
		ENDIF
	ENDSCAN
ENDWITH