Private Sub Button1_Click
'xui.MsgboxAsync("Hello world!", "B4X")
Dim ti As TreeItem
ti.Initialize("ti","Countries")
Dim cti As TreeItem
cti.Initialize("ti","Germany")
ti.Children.Add(cti)
' Dim ccti As TreeItem
' ccti.Initialize("ti","Frankfruit") ---- Here I am getting error. I want to add another Child Item Under Germany
' ccti.Children.Add(ccti)
TreeView1.Root.Children.Add(ti)
Dim ti As TreeItem
ti.Initialize("ti","Countries")
Dim cti As TreeItem
cti.Initialize("ti","Germany")
ti.Children.Add(cti)
Dim ccti As TreeItem
ccti.Initialize("cti","Frankfruit")
cti.Children.Add(ccti)
TreeView1.Root.Children.Add(ti)