VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "CRbt" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit ' red-black tree node, object method ' housekeeping for node Enum EColor Black Red End Enum Public Left As CRbt ' pointer to left child Public Right As CRbt ' pointer to right child Public Parent As CRbt ' pointer to parent Public Color As EColor ' Black, Red ' user's data -- note that user-defined types are ' not allowed in classes, so specify field-by-field Public Key As Variant Public Rec As Variant