add in и диалоговые окна

[corgi]

кто-нибудь знает как в add-in для vb6 сделать тулбар с кнопкой и на нее назначить форму которая находится в самом add-in'е

вот что у меня получилось:

Код: Выделить всё

'Get the Application object for Outlook
Set oApp = Application

'Customize the Outlook Menu structure and toolbar
Set oCBs = oApp.ActiveExplorer.CommandBars
Set oMenuBar = oCBs.Add("My Toolbar", 1, False, True)
oMenuBar.Visible = True

Set obutton1 = oMenuBar.Controls.Add(msoControlButton, , , , True)
DoEvents
obutton1.Caption = "Button1Caption"
obutton1.ToolTipText = "Button1"
obutton1.OnAction = "add_rec"
obutton1.FaceId = 125
obutton1.Style = msoButtonIconAndCaption
obutton1.Enabled = True


но проблема в том что obutton1.OnAction = "add_rec" вызывает функцию add_rec которая находится не в add-in'е а в самом аутлуке
HELP

[corgi]

уже разобрался

[LsD85]

Всегда рады помочь