Глюки c PanZoom_scale

Question

При добавлении в мною созданный "ToolBar" стандартной кнопки "PanZoom_Scale" проблем не возникает. Самое интересное начинается когда выхожу из проекта - выдаются 3 ошибки:
"Инструкция по адресу ..... обратилась к памяти по адресу ..... . Память не может быть "read". "

Помогите!! Что я делаю не так
Public Sub CreateToolBar()
Dim pDoc As IDocument
Dim pCmdBars As ICommandBars
Dim pCmdBar As ICommandBar

Set pDoc = Application.Document
Set pCmdBars = pDoc.CommandBars
Set pCmdBar = pCmdBars.Create("MyToolBar", esriCmdBarTypeToolbar)

pCmdBar.Add arcid.File_AddData
pCmdBar.Add arcid.PanZoom_FullExtent

pCmdBar.Add arcid.PanZoom_Scale
pCmdBar.Dock esriDockRight
End Sub

Answer 1

Переменные надо чистить:

Public Sub CreateToolBar()

Dim pDoc As IDocument
Dim pCmdBars As ICommandBars
Dim pCmdBar As ICommandBar

Set pDoc = Application.Document
Set pCmdBars = pDoc.CommandBars
Set pCmdBar = pCmdBars.Create("MyToolBar", esriCmdBarTypeToolbar)

pCmdBar.Add arcid.File_AddData
pCmdBar.Add arcid.PanZoom_FullExtent

pCmdBar.Add arcid.PanZoom_Scale
pCmdBar.Dock esriDockRight

'///

Set pDoc = Nothing
Set pCmdBars = Nothing
Set pCmdBar = Nothing

End Sub

Answer 2

что-то не работает придложенный способ!!!

Answer 3

Скорее всего, в других местах в коде та же история. Нужно видеть ВЕСЬ код.