请教如何获得TOC控件中所点击图层的名称

请教一下:我想通过HitTest方法获得TOC控件中所点击的图层,代码如下(VB+AE):

TOCControl1.HitTest x, y, pItem, pMap, pLayer, pOther, pIndex
 If pItem = esriTOCControlItemLayer Then
   mToolbarMenu.PopupMenu x, y, TOCControl1.hWnd
   MapControl1.CustomProperty = pLayer
   Set attrLayer = pLayer
 End If

但是无法实现,请教一下,应该如何改?或者得到图层名称也行.

谢谢了!