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
| Code | May produce | 
|---|
| Dim v As Variant
 Print "Key", "Value"
 For Each v In hTree
 Print hTree.Key, v
 Next
 | Key     Valuea       1
 b       11
 c       5
 |