1、打开VB6.0，新建一个工程，将窗体Form1的caption属性改为“动态菜单的实现”，将界面设置成下图：
2、进入“工具”菜单--“菜单编辑器”，打开菜单编辑器。
3、在打开的“菜单编辑器”中按照如图所示创建菜单。注意：“窗口”菜单下的“文件信息“菜单项是样板菜单，去除”可见“复选框中的勾，并将其索引设为0，将其变为菜单数组。
4、关闭菜单编辑器，创建的菜单如图所示：
5、双击窗体进入代码编辑窗口，在通用段进行变量定义：
6、通过代码窗口的下拉三角形进入”打开“菜单项的代码编辑，输入如下代码：CommonDialog1.Action = 1I = I + 1Load fileinfo(I)fileinfo(I).Caption = "第" & I & "个:" & CommonDialog1.FileNamefileinfo(I).Visible = True
7、接着编写”关闭“菜单项的代码：If i = 0 ThenExit SubElsej = Val(InputBox("输入", "请输入需删除的菜单项序号"))For k = j To i - 1fileinfo(k).Caption = fileinfo(k + 1).Captionm = InStr(1, fileinfo(k).Caption, "个")fileinfo(k).Caption = "第" & k & Mid(fileinfo(k).Caption, m)NextUnload fileinfo(i)i = i - 1End If
8、关闭代码窗口，按下F5运行程序，分别使用”打开“菜单项打开若干文件，并尝试用”关闭“菜单项从”窗口“菜单下中将已关闭文件的文件信息移除。得到的效果如图所示：
