            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Open"
            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Settings-Basic"
            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Settings-User"
            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Settings-Security"
            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Settin