vb菜单编辑代码？？？？

       ..点选窗体 然后在 工具--菜单编辑器 中添加菜单。

       å°†ä»¥ä¸‹å†…容保存到记事本里，然后更改该记事本文档后缀名为：.frm

       VERSION 5.

       Begin VB.Form Form1

        Caption = "Form1"

        ClientHeight =

        ClientLeft =

        ClientTop =

        ClientWidth =

        LinkTopic = "Form1"

        ScaleHeight =

        ScaleWidth =

        StartUpPosition = 3 '窗口缺省

        Begin VB.Menu menu

        Caption = "文件"

        Begin VB.Menu menu1

        Caption = "打开"

        End

        Begin VB.Menu menu2

        Caption = "退出"

        End

        End

       End

       Attribute VB_Name = "Form1"

       Attribute VB_GlobalNameSpace = False

       Attribute VB_Creatable = False

       Attribute VB_PredeclaredId = True

       Attribute VB_Exposed = False

       Private Sub menu1_Click()

       Shell "cmd ",源码仿网站源码 失效 1

       End Sub

       Private Sub menu2_Click()

       End

       End Sub