Access Violation using a custom form as a submenu

Hello,

I found a bug in the CommandBars, using a custom form as a submenu item.

The problem is this:

- create a new VB6 project, with a MDI form in it
- create an MDI child, and add there a command bar object
- write this code in the MDI child, that generates a menu with a custom control in it, that uses a form (this is the same as your SDI sample code):

Set Control = .Add(xtpControlPopup, 0, "Find", -1, False)
Control.BeginGroup = True
Set ControlSearch = Control.CommandBar.Controls.Add(xtpControlCustom, ID_SEARCH_FORM, "Search Form", -1, False)
ControlSearch.Handle = crtlSearchForm.hWnd

- In the MDIForm_Unload event, write this code:

Private Sub MDIForm_Unload(Cancel As Integer)
    Dim frm As Form
    
    For Each frm In Forms
       
        Debug.Print frm.Name
       
        If frm.hWnd <> Me.hWnd Then
       
            Unload frm
       
        End If
       
    Next

End Sub

(I've got a project that simulates the problem, but I can't send it to the forum...)

Ok, now the problem is this: if you open the (custom) menu that contains the form, and then try to close the application, the MDIForm_Unload event generates an Acess Violation error, as soon as it tries to access "frm.Name". If you don't open the custom menu, this does not happens.
This happens only in an MDI environment (no problem using a SDI application).

Any idea on this?

Thanks for any help and kind regards,
Marco
 

Ok: I just posted my example application.
To test it, open the menu with the custom form, and then close the application (i.e. close the main MDI form)

Thanks for the support