Sub caricatree
Dim l As List
Dim res() As String
Dim img As Image
img.Initialize(File.DirAssets, "table.png")
l.Initialize
l = DBUtils.ExecuteMemoryTable(SQL1, "SELECT name, sql FROM sqlite_master WHERE type='table' ", Null, 0)
Dim i As Int
Dim itemup As TreeItem
itemup.Initialize("itemup", "Archivi")
itemup.Image = img
For i = 2 To l.Size -1
res = l.Get(i)
itemtreebox.Initialize("itemtreebox", res(0))
itemup.Children.Add(itemtreebox)
Next
treearc.Root.Children.Add(itemup)
treearc.SetCheckBoxesMode
treearc.Root.Expanded = True
End Sub