Listing 6

VB6

Define Custom Menus

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.