For i = 100 To 400 Step 100
Dim t As TreeItem
t.Initialize("",i)
TreeView1.Root.Children.Add(t)
Next
Dim tI As TreeItem = TreeView1.Root.Children.Get(0)
For i = 10 To 40 Step 10
Dim t As TreeItem
t.Initialize("",i)
tI.Children.Add(t)
Next
For i = 60 To 90 Step 10
Dim t As TreeItem
t.Initialize("",i)
tI.Children.Add(t)
Next
Dim t50 As TreeItem
t50.Initialize("",50)
tI.Children.InsertAt(4,t50)