Internet - Add-Ins ConnectAddin() Subroutine

'Description: Example ConnectAddIn subroutine.

'Paste into class module

'Sub ConnectAddIn(VBInst As VBIDE.Application)
Set gobjIDEAppInst = VBInst
Set AddInItems = VBInst.AddInMenu.MenuItems
Set mymenu = AddInItems.Add("I've Created An Add-In!!!!")
ConnectID = mymenu.ConnectEvents(Me)
'End Sub