parametres = xui.LoadBitmap(File.DirAssets, "parametres.jpg")
logo = xui.LoadBitmap(File.DirAssets, "bellac blason.jpg")
Tree.Initialize(CustomListView1)
Dim item As CLVTreeItem
item = Tree.AddItem(Tree.Root, "Bellac", logo, "1")
item = Tree.AddItem(item, "Paramètres", parametres, "1-1")
item = Tree.AddItem(item, "Températures", Null, "1-2")
logo = xui.LoadBitmap(File.DirAssets, "limoges blason.jpg")
item = Tree.AddItem(Tree.Root, "Limoges", logo, "2")
item = Tree.AddItem(item, "Studio", Null, "2-1")
item = Tree.AddItem(item, "Paramètres", parametres, "2-1-1")
item = Tree.AddItem(item, "Températures", Null, "2-1-2")
item = Tree.AddItem(item, "1er étage", Null, "2-2")