u.Caption(ItemNumber) &amp; " (" &amp;
       m_cMenu.ItemKey(ItemNumber) &amp; ")"
   Else
      lblInfo.Caption = m_cMenu.Caption(ItemNumber)
   End If
End Sub

Private Sub m_cMenu_MeasureItem(ByVal lMenuIndex As Long, lWidth As Long,
 lHeight As Long)
   ' When a menu item is owner-draw, it will raise this event to request
   ' its size.  lWidth as lHeight will be already filled in with the
   ' size of the menu item as it would be if the standard drawing method
   ' was used.
   
   ' Here we check if t