CNodeSinkObject

Option Explicit
Public Event IDRequest(oParent As CNode)

Public Function RequestParent() As CNode
Dim oNode As CNode

RaiseEvent IDRequest(oNode)

Set RequestParent = oNode
End Function