Private Type Knoten
    Wert As Long
    Links As KnotenPointer
    Rechts As KnotenPointer
End Type
Private Type KnotenPointer As Pointer For Knoten
 
Sub InOrderRecursive(K As Knoten)
  If Not K Is Null Then
    InOrderRecursive(K.Links)
    Print(K.Wert)
    InOrderRecursive(K.Rechts)
  End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.