Вывести значения всех вершин бинарного дерева в инфиксном порядке - VB

Формулировка задачи:

Задан указатель на корень непустого бинарного дерева. Вывести значения всех вершин дерева в инфиксном порядке ( вначале выводится содержимое левого поддерева в инфиксном порядке , затем значение корня, затем содержимое правого поддерева в инфиксном порядке).

Решение задачи: «Вывести значения всех вершин бинарного дерева в инфиксном порядке»

textual
                            Листинг программы 
                        

                            Private m_Value As Integer
Private m_CLeft As BTree
Private m_CRight As BTree
 
Public Property Get Value() As Integer
       Value = m_Value
End Property
 
Public Property Let Value(V As Integer)
       m_Value = V
End Property
 
Public Property Get CLeft() As BTree
       Set CLeft = m_CLeft
End Property
 
Public Property Set CLeft(L As BTree)
       Set m_CLeft = L
End Property
 
Public Property Get CRight() As BTree
       Set CRight = m_CRight
End Property
 
Public Property Set CRight(L As BTree)
       Set m_CRight = L
End Property
                        