Custom Object ?Resursive? Events

[mikerickson]

I have a custom userform Control, clsTwoInput.

Basically, it is a Frame that contains a CheckBox and two InputBoxes.
The CheckBox toggles the visibility of the InputBoxes and the clsTwoInput.Value is the .Value of the visible InputBox.

Each of the InputBoxes is either a TextBox or a clsTwoInput.

This works fine, until I try to get the clsTwoInput to generate a Change event.

Here is my current clsTwoInput code.
When I try to add WithEvents to the declaration of clOneInput, I get an compile error "Cannot handle events for the object specified"

' in clsTwoInput Class module

Public WithEvents txtOneBox As MSForms.TextBox
Public WithEvents txtTwoBox As MSForms.TextBox
Public clOneInput As clsTwoInput
Public clTwoInput As clsTwoInput

Public WithEvents chkChooser As MSForms.CheckBox

Event Change()

Property Get OneBox() As Object
    If txtOneBox Is Nothing Then
        Set OneBox = clOneInput
    Else
        Set OneBox = txtOneBox
    End If
End Property
Property Set OneBox(InputObject As Object)
    Set txtOneBox = Nothing
    Set clOneInput = Nothing
    Select Case TypeName(InputObject)
        Case "TextBox"
            Set txtOneBox = InputObject
        Case "clsTwoInput"
            Set clOneInput = InputObject
    End Select
End Property

Property Get TwoBox() As Object
    If txtTwoBox Is Nothing Then
        Set TwoBox = clTwoInput
    Else
        Set TwoBox = txtTwoBox
    End If
End Property
Property Set TwoBox(InputObject As Object)
    Set txtTwoBox = Nothing
    Set clTwoInput = Nothing
    Select Case TypeName(InputObject)
        Case "TextBox"
            Set txtTwoBox = InputObject
        Case "clsTwoInput"
            Set clTwoInput = InputObject
    End Select
End Property

Property Get Value() As String
    If OneBox.Visible Then
        Value = OneBox.Value
    Else
        Value = TwoBox.Value
    End If
End Property
Property Let Value(inValue As String)
    If OneBox.Visible Then
        OneBox.Value = inValue
    Else
        TwoBox.Value = inValue
    End If
End Property

Property Get Visible() As Boolean
    Visible = chkChooser.Parent.Visible
End Property
Property Let Visible(Visibility As Boolean)
    chkChooser.Parent.Visible = Visibility
End Property

Private Sub chkChooser_Click()
    OneBox.Visible = chkChooser.Value
    TwoBox.Visible = Not (chkChooser.Value)
    RaiseEvent Change
End Sub

Private Sub txtOneBox_Change()
    RaiseEvent Change
End Sub

Private Sub txtTwoBox_Change()
    RaiseEvent Change
End Sub

In the attached user form, OuterInput is a clsTwoInput that has its checkbox, one text box and one clsTwoInput, InnerBox.
Changing OuterInput by clicking the checkbox or by typing into the checkbox will trigger the OuterInput_Change event, but changing InnerBox will not.

Is there a way for a custom object, that has a different instance of that object as a property of that object, to receive Events from the sub-instance of itself?