How to generate tree structure dynamically??

[saratchandra]

Set myNode = TreeView1.Nodes.Add(, , "r", Cells(50, 7).text) 
Set myNode = TreeView1.Nodes.Add("r", tvwChild, "child1", Cells(51, 7).text) 
Set myNode = TreeView1.Nodes.Add("r", tvwChild, "child2", Cells(52, 7).text) 
Set myNode = TreeView1.Nodes.Add("r", tvwChild, "child3", Cells(53, 7).text)  
Set myNode = TreeView1.Nodes.Add("r", tvwChild, "child4", Cells(54, 7).text)  
Set myNode = TreeView1.Nodes.Add("r", tvwChild, "child15", Cells(60, 7).text) 
Set myNode = TreeView1.Nodes.Add("r", tvwChild, "child16", Cells(68, 7).text) 


Set myNode = TreeView1.Nodes.Add("child4", tvwChild, "child13", Cells(56, 7).text) 
Set myNode = TreeView1.Nodes.Add("child4", tvwChild, "child14", Cells(57, 7).text) 


Set myNode = TreeView1.Nodes.Add("child15", tvwChild, "child22", Cells(62, 7).text) 
Set myNode = TreeView1.Nodes.Add("child15", tvwChild, "child23", Cells(65, 7).text) 
Set myNode = TreeView1.Nodes.Add("child15", tvwChild, "child17", Cells(69, 7).text) 


Set myNode = TreeView1.Nodes.Add("child17", tvwChild, "child24", Cells(71, 7).text) 
Set myNode = TreeView1.Nodes.Add("child17", tvwChild, "child18", Cells(72, 7).text) 


Set myNode = TreeView1.Nodes.Add("child18", tvwChild, "child25", Cells(74, 7).text)
Set myNode = TreeView1.Nodes.Add("child18", tvwChild, "child19", Cells(75, 7).text) 
Set myNode = TreeView1.Nodes.Add("child19", tvwChild, "child26", Cells(77, 7).text) 
Set myNode = TreeView1.Nodes.Add("child19", tvwChild, "child20", Cells(78, 7).text) 


Set myNode = TreeView1.Nodes.Add("child20", tvwChild, "child27", Cells(80, 7).text) 
Set myNode = TreeView1.Nodes.Add("child20", tvwChild, "child21", Cells(81, 7).text)


Set myNode = TreeView1.Nodes.Add("child21", tvwChild, "child28", Cells(83, 7).text) 


Set myNode = TreeView1.Nodes.Add(, , "r1", Cells(95, 7).text)
Set myNode = TreeView1.Nodes.Add("r1", tvwChild, "child5", Cells(96, 7).text) 
Set myNode = TreeView1.Nodes.Add("r1", tvwChild, "child6", Cells(97, 7).text) 


Set myNode = TreeView1.Nodes.Add(, , "r2", Cells(99, 7).text) 
Set myNode = TreeView1.Nodes.Add("r2", tvwChild, "child7", Cells(100, 7).text) 


Set myNode = TreeView1.Nodes.Add(, , "r3", Cells(102, 7).text) 
Set myNode = TreeView1.Nodes.Add("r3", tvwChild, "child8", Cells(103, 7).text) 
Set myNode = TreeView1.Nodes.Add("r3", tvwChild, "child9", Cells(104, 7).text) 


Set myNode = TreeView1.Nodes.Add(, , "r4", Cells(106, 7).text) 
Set myNode = TreeView1.Nodes.Add("r4", tvwChild, "child10", Cells(107, 7).text) 
Set myNode = TreeView1.Nodes.Add("r4", tvwChild, "child11", Cells(108, 7).text) 
Set myNode = TreeView1.Nodes.Add("r4", tvwChild, "child12", Cells(109, 7).text)

In the above code i am providing the text manually by giving row number in excel sheet. But i need to generate the tree dynamically by taking the row number automatically from my excel sheet. And how can i link the child of one node as a parent of another node.

Please provide me the logic in generating the tree or with the VBA Script for generating the tree.

Regards,
Sarath.