各位大侠，我想在程序中手工增加菜单项和他的点击消息，应怎样做的，谢谢

Question

到http://www.csdn.net/expert/topic/709/709648.xml?temp=.5697748看看

Answer 1

http://www.fw.cz/jankudr/about_in_sm.htm这里有个例子

Answer 2

先添加一个菜单项mnuOpenFile 其Index设置为0
Private Sub Command1_Click()
    Load mnuOpenFile(mnuOpenFile.UBound + 1)
End SubPrivate Sub mnuOpenFile_Click(Index As Integer)
    Select Case Index
        Case 0
            'you code
        Case 1
            'you code
        
    End Select
End Sub