Why isnt this working? The control IS added to the form,
but I can't get the crlMine_ObjectEvent sub to fire.

Option Explicit
Dim crlMine As VBControlExtender

Private Sub Form_Load()

   Set crlMine = Controls.Add("Project1.MyControl", "MyControl")
   With crlMine
      .Visible = True
      .Top = 100
      .Left = 100
   End With
   
End Sub

Private Sub crlMine_ObjectEvent(Info As EventInfo)
   
   Select Case Info.Name
   
    Case "Click"
      MsgBox "It Worked!"
   
   Case Else ' Unknown Event
      
   End Select
   
End Sub