Народ, пишу AddIn для редактора Visual Basic. Добавляю свой пункт меню, пункт добавляется, а как добавить вложенный пункт???? Как только не пробывал, не работает и все тут. Вот код:
код

Option Explicit

Dim VBInstance As VBIDE.VBE
Dim cbAddIns As CommandBar
Dim cbcInsertLine As CommandBarControl
Private WithEvents cbeInsertLine As CommandBarEvents
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Set VBInstance = Application ' Find the Add-Ins menu.
Set cbAddIns = VBInstance.CommandBars("Add-Ins") ' Add a button to the Add-Ins menu.
Set cbcInsertLine = cbAddIns.Controls.Add(Type:=msoControlButton) ' Assign the Caption and Style of the new button.
cbcInsertLine.Caption = "SQL-code"
cbcInsertLine.Style = msoButtonCaption ' Associate an event object to the new button.

Set cbeInsertLine = VBInstance.Events.CommandBarEvents(cbcInsertLine)
End Sub