Activity.LoadLayout("main")
B4XTree1.AddBranch("Branch 1","1",Chr(0xF0F9),Colors.Gray)
B4XTree1.AddLeaf("Leaf A","1")
B4XTree1.AddLeaf("Leaf B","1")
B4XTree1.Add("Branch 2","2",Chr(0xF0E9),0xFF566DFF,Array As String("Sub A","Sub B","Sub C"))
B4XTree1.Add("Branch 3","3",Chr(0xF0F5),0xFF1B8921,Array As String("Leaf D","Leaf E","Leaf F"))
For I=67 To 87
B4XTree1.AddLeaf("Leaf " & Chr(I),"1")
Next
'Instruction useful only for the compiler to load FontAwesone
Dim BF As B4XFont= xui.CreateFontAwesome(14) 'ignore