BUG: Pop-up Menus May Cause Application Error in IDE

MORE INFORMATION

Steps to Reproduce Behavior

1. In a new ActiveX Control project, add the following code to the control:

         Option Explicit
   
         Dim oMnu As Object
   
         Private Sub UserControl_MouseDown _
             (Button As Integer, Shift As Integer, X As Single, Y As Single)
             Select Case Button
             Case vbRightButton
                 If Not oMnu Is Nothing Then
                     PopupMenu oMnu
                 End If
             End Select
         End Sub
   
         Public Sub newMenu(mnu As Object)
             Set oMnu = mnu
         End Sub
   
   						

2. Name the control "PopupMenuCtl."
3. Name the control project by clicking Project Properties from the Project menu. Set the Project Name field to "TestControl" (without the quotes).
4. Save the project and compile the control.
5. In a new Standard EXE project, add the control to the project by clicking Component from the Project menu and turn on the option for the new control called "TestControl."
6. In Form1, draw an instance of TestControl.
7. Add a menu to the form by displaying the form and selecting Menu Editor from the Tools menu. Add the following menus:

      Indent       Caption         Name
   
      none         "&File"         "FileMenu"
      1            "&Test"         "FileMenuTest"
   
   						

8. Add the following code to Form1:

         Option Explicit
   
         Private Sub Form_Load()
            PopupMenuCtl1.newMenu FileMenu
         End Sub
   
   						

9. In the Visual Basic IDE, press the F5 key to bring up Form1.
10. Right-click in the area occupied by the ActiveX control.