hi,

1.it is posssible to add new node to child node as under

WITH .Nodes.Add('R1 Series 1',tvwChild,"r1s1","R1 Series 1  aaaa")
    .BackColor = RGB(0,0,255)
    .ForeColor = Rgb(255,255,0)
  ENDWITH

2.can i run myform include any child node as do form myform

thanks
>>>
>>>TEXT TO m.strShape TEXTMERGE PRETEXT 8
>>>shape append
>>> new adChar(10) as Region,
>>> new adInteger as RegionID,
>>> ((shape append
>>> new adChar(20) as Series,
>>> new adInteger as RegionID )
>>> as ls relate regionID to RegionID)
>>>ENDTEXT
>>
>>
>>thanx
>>
>>Can you highlight more ?
>>How can i do the above without using shape ?
>>
>>m.ors1 = createobject("adodb.recordset")
>>m.ors1.fields.append("region",adchar,10)
>>m.ors1.fields.append("regionid",adinteger)
>>
>>now how to add the series recordset and relate?
>>
>>suhashegde
>
>BTW if all you need is Regions and series then do with TV. It's easier. You just need to set backcolor property as you wish. ie:
>

>#Define tvwFirst	0
>#Define tvwLast	1
>#Define tvwNext	2
>#Define tvwPrevious	3
>#Define tvwChild	4
>
>Public oForm
>oForm = Createobject('myForm')
>oForm.Show()
>
>With oForm.Tree
>  .Left = 10
>  .Top = 10
>  .Width = 200
>  .Height = 200
>  .Nodes.Add(,tvwFirst,"r1",'Region 1')
>  .Nodes.Add(,tvwFirst,"r2",'Region 2')
>
>  WITH .Nodes.Add('r1',tvwChild,"r1s1","R1 Series 1")
>    .BackColor = RGB(0,0,255)
>    .ForeColor = Rgb(255,255,0)
>  Endwith
>  WITH .Nodes.Add('r1',tvwChild,"r1s2","R1 Series 2")
>    .BackColor = RGB(255,0,0)
>    .ForeColor = Rgb(255,255,0)
>  Endwith
>
>  WITH .Nodes.Add('r2',tvwChild,"r2s1","R2 Series 1")
>    .BackColor = RGB(0,0,255)
>    .ForeColor = Rgb(255,255,0)
>  Endwith
>  WITH .Nodes.Add('r2',tvwChild,"r2s2","R2 Series 2")
>    .BackColor = RGB(255,0,0)
>    .ForeColor = Rgb(255,255,0)
>  Endwith
>
>  For Each oNode In .Nodes && Expand all nodes for easy view
>    oNode.Expanded = .T.
>  Endfor
>Endwith
>
>Define Class myForm As Form
>  oNode= .Null.
>  Add Object Tree As OleControl With ;
>    Name = 'Tree',OleClass='MSComCtlLib.TreeCtrl'
>
>  Procedure Init
>    With This.tree
>      .linestyle = 1
>      .Font.Name = 'Times New Roman'
>      .Font.Size = 10
>      .indentation = 5
>    Endwith
>  Endproc
>Enddefine
>

>Cetin