Удаления системных команд из контекстного меню объектов TDMS

Sub ContextMenu_ItemAdd(cmdId, MenuObject, Obj, Remove)
  Remove = RemoveMenuItem(cmdId,MenuObject,Obj,0,"OBJECTS")
'  Remove = RemoveMenuItem(cmdId,MenuObject,Obj,18661,"OBJECT_C883F672_E2D2_4246_8C61_5F0C8056B457")
End Sub

' Функция определяет необходимость удаления элемента системного контекстного меню
'---------------------------------------------------------------------------------------------------
' id_:string         - идентификатор команды, которую надо удалить. =0 - удаляем все
' sysname_:string    - идентификатор типа объекта, который необходимо удалить из 
'                      системного подменю. Например "Создать\<удаляемый тип объекта>"
'                      ="OBJECTS" - удаляем все
' RemoveMenu:boolean - true - удалить; false - не удалять
'---------------------------------------------------------------------------------------------------
Function RemoveMenuItem(cmdId_,MenuObject_,Obj_,id_,sysname_)
  ' Проверяем, что это выпадающее вертикальное подменю
  If not MenuObject_ is Nothing Then
    SysName = MenuObject_.SysName
    ' Проверяем, требуется ли удаление из меню определенного типа объекта
    If StrComp(sysname_, SysName, vbTextCompare) = 0 or sysname_="OBJECTS" Then
      RemoveMenuItem = True
    End If
  Else
    ' Проверяем, требуется ли удаление из меню системной команды
    If cmdId_ = id_ or id_=0 Then
      RemoveMenuItem = True
    End If
  End If
End Function