对了，请问怎么样给菜单编写事件响应程序？

Question

对不起，没有完全理解到你的意思
可否说得具体一点点？
Private Sub Menu_Click()
 '应做:添加 'Menu_Click' 代码。
End Sub

Answer 1

在设计状态下打开有菜单的表单视图，然后点击相应的菜单项就会自动进入该菜单项的单击事件响应的编辑区。
或者在“Private Sub 菜单项名_Click(Index As Integer)”中编写相应单击事件的代码就可以了。

Answer 2

你先在菜单编辑器列设计好菜单名称以后，在窗体上就出现该菜单了，双击相应的菜单即可触发click，你可以在里面写代码。

Answer 3

如果是用API动态创建的菜单
子类拦截消息，处理WM_COMMAND消息可以参考：
http://zyl910vb.51.net/vb/gui/FavMenu.htm右击连接，目标另存为
注意把下载后的*.zip.jpg改名成*.zip

Answer 4

單擊menu設計好菜單文本,點確定.   在窗體上就會出現菜單,你現逐一編寫它的響應代碼不就可以了嗎?

Answer 5

你先在菜单编辑器列设计好菜单名称以后，在窗体上就出现该菜单了，双击相应的菜单即可触发click，你可以在里面写代码。

Answer 6

是不是这个？
Private Sub VerticalMenu_MenuItemClick(MenuNumber As Long, MenuItem As Long)
    Select Case MenuNumber
        Case 1
            Select Case MenuItem
                    Case 1
                        
                    Case 2
                    Case Else
             End Select
        Case 2
            Select Case MenuItem
                Case 1      
                Case 2              
                Case 3          
             End Select
       End Select
End sub