gs-Preferences"
            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Settings-Windows"
            MsgBox "Clicked " &amp; m_cMenu.Caption(lIndex), vbInformation
         Case "Help"
            MsgBox "This is the vbAccelerator ICQ-Style Menu demonstrator.  It
             shows how to create" &amp; vbCrLf &amp; vbCrLf &amp; " * A simple animated
             button" &amp; vbCrLf &amp; " * A pop-up menu with a side bar" &amp; vbCrLf &amp;
             vbCrLf &amp; "For 