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