Ошибка выполнения Geting Runtime «Значение не входит в ожидаемый диапазон».

Question

здесь im создание перспективы добавить. Где я создаю одну панель меню Item и добавить одну кнопку в строке меню. Когда я запускаю приложение, я получаю ошибку времени выполнения «Значение не попадает в ожидаемый диапазон» в MyMenuBar() при инициализации _objNewMenuBar. может ли кто-нибудь предложить мне, почему он дает мне такой тип или ошибку. Это значение стоп-строки wherei m получает ошибку
в Microsoft.Office.Core.CommandBarControls.Add (тип объекта, идентификатор объекта, параметр объекта, объект раньше, объект Временный) на TROutlookAddOn.ThisAddIn.MyMenuBar()

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup 
    Me.MyMenuBar() 
End Sub 

Private Sub MyMenuBar() 
    Me.ErsMyMenuBar() 
    Try 
     'Define the existent Menu Bar 
     _objMenuBar = Me.Application.ActiveExplorer.CommandBars.ActiveMenuBar 
     'Define the new Menu Bar into the old menu bar 
     _objNewMenuBar = CType(_objMenuBar.Controls.Add(Office.MsoControlType.msoControlPopup, missing, missing, missing, False), Office.CommandBarPopup) 
     If (Not (_objNewMenuBar) Is Nothing) Then 
      _objNewMenuBar.Caption = "Talent Recruit" 
      _objNewMenuBar.Tag = menuTag 
      _objButton = CType(_objNewMenuBar.Controls.Add(Office.MsoControlType.msoControlButton, missing, missing, 1, True), Office.CommandBarButton) 
      _objButton.Caption = "Import Resume" 
      Dim newIcon As System.Drawing.Icon = My.Resources.recruit_logo 
      Dim newImageList As ImageList = New ImageList 
      newImageList.Images.Add(newIcon) 
      _objButton.Picture = ConvertImage.Convert(newImageList.Images(0)) 
      _objButton.Style = Microsoft.Office.Core.MsoButtonStyle.msoButtonIconAndCaption 
      'Icon 
      '_objButton.FaceId = 500; 
      _objButton.Tag = "ItemTag" 
      'EventHandler 
      AddHandler _objButton.Click, AddressOf Me._objButton_Click 
      _objNewMenuBar.Visible = True 
     End If 
    Catch ex As System.Exception 
     System.Windows.Forms.MessageBox.Show(("Error: " + ex.Message.ToString), "Error Message") 
    End Try 
End Sub 

Answer 1

Решение для удалить все отсутствующие переменной от метода