BUG: Dynamic Private UserControl Extender Events Do Not Show

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new standard .exe project. Form1 is created by default.
2. From the Project menu, add a new UserControl to the project.
3. Add the following code to the User Control:

         Event Click()
   
         Private Sub UserControl_Click()
            RaiseEvent Click
         End Sub
   
         Public Property Get Color() As OLE_COLOR
            Color = UserControl.BackColor
         End Property
   
         Public Property Let Color(Value As OLE_COLOR)
            UserControl.BackColor = Value
         End Property
   
   						

4. Close the User Control design window and open the code window for Form1.
5. Add the following code to the General Declarations section of Form1:

         Dim WithEvents MyCtl as UserControl1
   
   						

6. Click on the Event list, and select MyCtl. You will only see the Click event. None of the extender events (for example, GotFocus, LostFocus, DragOver, and so forth) are available. Further, if you try to use any extender properties in code you will get an error. For Example:

          MyCtl.Visible = True 'This will cause a compile error.
   
   						

7. To make the extender events available, add the following code to Form1:

         Dim WithEvents MyCtl As VBControlExtender
   
         Private Sub Form_Load()
            Set MyCtl = Controls.Add("Project1.UserControl1", "myctrl")
            MyCtl.Move 1, 1
            MyCtl.Visible = True
            MyCtl.Color = &HFF0000
         End Sub
   
         Private Sub MyCtl_ObjectEvent(Info As EventInfo)
            MsgBox "This control event was fired: " & Info.Name
         End Sub
   
   						

8. Before you run the project, go to the Project menu and select Project1 Properties. Click the Make, and clear the "Remove information about unused ActiveX controls" check box.
9. Save and run the project.