

Private Sub m_cMenu_Click(ItemNumber As Long)
Dim sKey As String
   sKey = m_cMenu.ItemKey(ItemNumber)
   Select Case sKey
   Case "New"
      MsgBox "New Accelerator selected!", vbExclamation
   Case "Open"
      MsgBox "Open Accelerator selected!", vbExclamation
   End Select
End Sub

Private Sub m_cMenu_DrawItem(ByVal hDC As Long, ByVal lMenuIndex As Long, lLeft
 As Long, lTop As Long, lRight As Long, lBottom As Long, ByVal bSelected As
 Boolean, ByVal bChecked As Boolean, ByVal bDisabled As Boolean, b