For Each AvlTree (gb.data)
Dim hAvlTree
As AvlTree
Dim aVariant
As Variant
For Each aVariant
In hAvlTree
...
Next
Visit each element of the tree in-order, i.e. from the smallest key to
the greatest. The Key property of the tree is set according to the value
in the enumerator.
{example
Print "Key", "Value"
For Each v In hTree
Print hTree.Key, v
Next
}