填空题

窗体上有一个名称为CD1的通用对话框，通过菜单编辑器建立如下图左图所示的菜单。程序运行时，如果单击“文件”菜单项，则执行打开文件的操作，当选定了文件(例如G:\VB\2010-9\in.txt)并打开后，该文件的文件名会被添加到菜单中，如下图右图所示，各菜单项的名称和标题等定义如下表所示。

各菜单项的名称和标题
标题	名称	内缩	索引	可见
文件	File	无	无	True
打开	mnuOpen	…	无	True
关闭	mnuClose	…	无	True
	mnu	…	无	True
(空)	FName	…	0	False

以下是单击“文件”菜单项的事件过程，请填空。
Dim mnuCounter As Integer
Pivate Sub mnuOpen_Click()
CDl ShowOpen
If CD1.FileName＜＞" "Then
Open______For Input As#1
mnuCounter=mnuCounter+1
Load FName(mnuCounter)
FName(mnuCounter).Caption=CD1.FileName
FName(mnuCounter).______=True
Close#1
End If
End Sub