:
Ʋ˵ôģ,frmMenu1,frmMenu2frmMenu3ģ,,һ㹻
Ʋ˵ĳʼMdlYMenuģpMenuInit,Ʋ˵ĹMdlSubClasspDrawMenu
Ʋ˵͸һ˵ʱʹ(ע˵Ҫɿʱ)



Ӳ˵(ֱϴ˵)
һ˵
Private WithEvents m_MnuTest As CYMenu    '(ֻڴ)
    Set m_MnuTest = New CYMenu
    m_MnuTest.Add 0, "˵", g_Src1             'ͼ
    m_MnuTest.Add 0, "˵"
    m_MnuTest.Add 0, ""                             'ӷָ
    m_MnuTest.Add 0, "˵"
    m_MnuTest.SetEnableStatus "˵", False     'Enabled״̬ȻҲԵõ״̬(CYMenuԼ)
    m_MnuTest.SetCheckStatus  "˵", False     'øѡ״̬ȻҲԵõ״̬(CYMenuԼ)
                                                    'ע⸴ѡͼȫֱg_IconCheckõ
Ӷ˵
    m_MnuTest.Add 0, "޸ĺϢ"
    
    m_MnuTest.Add m_MnuTest.Index("޸ĺϢ"), "޸ĺϢ1"
    m_MnuTest.Add m_MnuTest.Index("޸ĺϢ"), "޸ĺϢ2"
    
    m_MnuTest.Add m_MnuTest.Index("޸ĺϢ2"), "޸ĺϢ21"
    m_MnuTest.Add m_MnuTest.Index("޸ĺϢ2"), "޸ĺϢ22"
    
    m_MnuTest.Add 0, "ɾ"
    m_MnuTest.Add 0, ""
    m_MnuTest.Add 0, "ɾ"
    m_MnuTest.Add 0, "޸ķ"
˵Ӧ
Private Sub m_MnuTest_Click(ByVal Cap As String)
    Select Case Cap
        Case "ʾϢ"
            ......
        Case
    End Select
End Sub                                     