Private Sub GetMenuItems(ByRef sMainMenu As String, ByRef saMenuItems As _
  System.Array, ByRef iFlags As Integer) Implements _
  MinitabAddinTLB.IMinitabAddin.GetMenuItems
        ' This method returns the text for the main menu and each menu item
' You can return "|" to create a menu separator in your menu items
 
        ' You must Redim the menu items array to fit your number of items
 
        sMainMenu = "&My Menu"
 
 
 
        'ReDim saMenuItems(0 To 4)
        saMenuItems.SetValue("Describe &column(s)...", 0)
        saMenuItems.SetValue("Rename active &worksheet...", 1)
        saMenuItems.SetValue("|", 2)
        saMenuItems.SetValue("&DOS window", 3)
        saMenuItems.SetValue("&Geometric Mean and Mean Absolute Difference...", _
          4)
 
        ' Flags is not currently used
 
        iFlags = 0
 
    End Sub

Private Sub IMinitabAddin_GetMenuItems(ByRef MainMenu As String, ByRef _
  MenuItems() As String, ByRef Flags As Long)
 
    ' This method returns the text for the main menu and each menu item
 
    ' You can return "|" to create a menu separator in your menu items
 
    ' You must Redim the menu items array to fit your number of items
 
    MainMenu = "&My Menu"
 
 
 
    ReDim MenuItems(0 To 4)
 
    MenuItems(0) = "Describe &column(s)..."
 
    MenuItems(1) = "Rename active &worksheet..."
 
    MenuItems(2) = "|"
 
    MenuItems(3) = "&DOS window"
 
    MenuItems(4) = "&Geometric Mean and Mean Absolute Difference..."
 
 
 
    ' Flags is not currently used
 
    Flags = 0
 
End Sub