Public Event Changed(NewCode as long)
Public sub SendNewCode(NewCode as long)
   RaiseEvent Changed(NewCode)
End sub

public CodeWatcher as clsCodeWatcher
Public sub Main
   Set CodeWatcher = new clsCodeWatcher
End sub

private withevents m_CodeWatcher
sub Class_Initialize
  Set m_CodeWatcher = Module1.CodeWatcher
end sub

sub m_CodeWatcher_Changed(NewCode as long)
   m_Code = NewCode
end sub

dim withevents m_Notifier as clsNotifier
sub Class_Initialize
   set m_Notifier = new clsNotifier
end sub
Public sub Add()
   Dim obj as clsMyItem
   Set obj = new clsMyItem
   obj.Initialize m_Notifier
   mCol.Add obj, ...
end sub

private sub m_Notifier_Message(sender as Object, v as Variant)
   if v = "GetParent then
      set sender = me;
   end if
end sub

public event Message(sender As Object, v As Variant)
public sub SendEvent(sender As Object, v As Variant)
   raiseevent Message(sender As Object, v As Variant)
end sub

dim m_ParentNotifier as clsNotifier
public sub Initialize(byval Notifier as clsNotifier)
   set m_ParentNotifier = Notifier
end sub
public property get Parent as clsMyCollection
   dim Obj as clsMyCollection
   m_ParentNotifier.Message obj, "GetParent"
   set Parent = obj
end property