Private Function PrivateMDI_GetMenuEntry(Index As _
Integer) As String
Select Case Index
Case 0
PrivateMDI_GetMenuEntry = "First Control Menu"
Case 1
PrivateMDI_GetMenuEntry = "Second Control Menu"
End Select
End Function
Private Sub PrivateMDI_MenuClicked( _
MenuName As String)
MsgBox "Control Menu " & MenuName & " clicked"
End Sub
Listing 6 You can use the GetMenuEntry and MenuClicked methods of the private interface to allow the private ActiveX controls to define custom menus to the main MDI form.