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

Private Function GetMenuItems(ByVal hMenuStart As Long, ByRef RootNode As Node)
   Dim i As Long
   Dim MenuItemCount As Long
   Dim TmpMenuInfo As MENUITEMINFO
   Dim RelNode As Node
   Dim retval As Long
   Dim tmpKey As String
 
On Error GoTo errHandler
 
MenuItemCount = GetMenuItemCount(hMenuStart)
 
If MenuItemCount > 0 Then
   
   For i = 0 To MenuItemCount - 1
    
     With TmpMenuInfo
       .cbSize = Len(TmpMenuInfo)
       .fType = MFT_STRING
       .fMask = MIIM_SUBMENU Or MIIM_TYPE Or MIIM_DATA Or MIIM_ID
       .cch = 256
       .dwTypeData = Space(.cch)
     End With
     
     retval = GetMenuItemInfo(hMenuStart, i, True, TmpMenuInfo)
      
     If CBool(TmpMenuInfo.fType And MFT_BITMAP) = True Then
       TmpMenuInfo.dwTypeData = 'Bitmap'
     ElseIf CBool(TmpMenuInfo.fType And MFT_SEPARATOR) = True Then
       TmpMenuInfo.dwTypeData = 'Separator'
     Else
       TmpMenuInfo.dwTypeData = Left$(TmpMenuInfo.dwTypeData, TmpMenuInfo.cch)
       TmpMenuInfo.dwTypeData = Replace(TmpMenuInfo.dwTypeData, vbTab, Space(5))
     End If
    
     tmpKey = getMenuItemName(TmpMenuInfo.dwTypeData)
     Set RelNode = Form1.TreeView1.Nodes.Add(RootNode, tvwChild, tmpKey, TmpMenuInfo.dwTypeData)
     
     If TmpMenuInfo.hSubMenu <> 0 Then
       Call GetMenuItems(TmpMenuInfo.hSubMenu, RelNode)
     End If
   Next i
End If
 
Exit Function
 
errHandler:
 
   MsgBox Err.Number & Err.Description
   Err.Clear
   Resume Next
   
End Function

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