Получение имени объекта (контрола) меню - VB

Формулировка задачи:

Строю дерево меню своей проги с помощью API. Дерево строиться, но хочется как то получить имя объекта меню при построении дерева, чтобы использовать его как уникальный ключ узла в дереве. Да и потом можно его присваивать пользователям для раздачи прав, писать в табличку. Как сие можно реализовать? С помощью АПИ удается пока достать только строку (caption) элемента меню.

Решение задачи: «Получение имени объекта (контрола) меню»

textual
                            Листинг программы 
                        

                            Public Function getMenuItemName(menuItemCaption) As String
Dim tmpCtrl As Control
 
menuItemCaption = Trim(menuItemCaption)
 
For Each tmpCtrl In Form1
If TypeName(tmpCtrl) = 'Menu' Then
 If tmpCtrl.caption = menuItemCaption Then
  getMenuItemName = tmpCtrl.Name
  Exit Function
 Else
  getMenuItemName = ''
 End If
End If
Next tmpCtrl
 
End Function
                        