保持父母和孩子之间的参考

Question

我想编写一个类似于项集合的类，并使其处理添加到自身的对象的引用。就像本例中的TreeNode一样：

    Dim father As New TreeNode("Father")
    Dim son As New TreeNode("Son")
    father.Nodes.Add(son)

    Dim p As TreeNode = son.Parent 'p is father

    father.Nodes.Clear()

    p = son.Parent  'p is Nothing

我考虑在Add方法中将“Son”中的引用建立到“父”，并在Remove和Clear方法中将其删除。然而，sinde的Parent属性是ReadOnly，我无法改变它，所以......我怎么能这样做？

谢谢！