title: Control event not firing in a VBA Class Module
body: <p>I have a problem getting any event firing from controls embedded in Class Modules in VBA Access. Despite many (many!) conversations in various forums related to this one, I haven't found any that help me. As far as I can tell I am following all their advices (mainly, I always use "Access.Control", "Access.Label" and so on so it is always the same library that is used, and the reference still exists at the moment the event should fire...), but it still doesn't fire!
  In the same project I have the same problem in several classes; I will take the example of a group of labels on a form. </p>
  
  <p>The load event of the form creates a first, big group like that:</p>
  
  <pre><code>Private Sub Form_Load()
  
     ...
  
    set mGroups = new CDocTree
    mGroups.Make Me
  
  End Sub
  </code></pre>
  
  <p>In CDocTree there are three  member variables declared like that:</p>
  
  <pre><code>Private WithEvents mVVPlan As CDocGroup
  Private WithEvents mTestPlan As CDocGroup
  Private mFrm As Form_FrmAlphaDocuments
  </code></pre>
  
  <p>and the method Make essentially does this:</p>
  
  <pre><code>Public Sub Make(frm As Access.Form)
  
    Set mFrm = frm
  
    With mFrm
  
      Set mVVPlan = New CDocGroup
      mVVPlan .Make .LblVVPlanBox, .LblVVPlanRef
  
      Set mTestPlan = New CDocGroup
      mTestPlan .Make .LblTestPlanBox, .LblTestPlanRef
  
    End With
  
  End Sub
  </code></pre>
  
  <p>Finally the class CDocGroup is defined like that:</p>
  
  <pre><code>Private WithEvents mBox As Access.Label
  Private WithEvents mRef As Access.Label
  
  Public Event Clicked(grp As CDocGroup)
  
  Public Sub Make(box As Access.Label, ref As Access.Label)
  
    ...
  
    Set mBox = box
    Set mRef = ref
  
  End Sub
  
  Private Sub mBox_Click()
    Debug.Print "Event Click fired in CDocGroup on " &amp; mBox.Name
    RaiseEvent Clicked(Me)
  End Sub
  
  Private Sub mRef_Click()
    Debug.Print "Event Click fired in CDocGroup on " &amp; mRef.Name
    RaiseEvent Clicked(Me)
  End Sub
  </code></pre>
  
  <p>That's it: the code never gets in mBox_Click or mRef_Click. What do I do wrong?</p>