ScanTree("","")
'
Private Sub ScanTree(IDB As String, space As String)
Log(space & IDB)
For Each IDLeaf As String In B4XTree1.ListOfIDLeafs(IDB)
Log(space & " " & IDLeaf)
Next
For Each IDBranche As String In B4XTree1.ListOfIDBraches(IDB)
ScanTree(IDBranche,space & " ")
Next
End Sub