在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu)，然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdd) 和“减少菜单”(Name属性值为mnuDel)，另外设置一个标题为空的菜单项<控件数组)，其Name属性值为mnuDyn，Index值为0，Visible属性值为False；然后编写以下程序来实现增加和减少菜单项的功能，完成程序。
Dim Inxld As Integer
Private Sub mnuAdd_Click()
Dim mnuc As String
mnuc=InputBox("input caption")
InxId；InxId+1
【6】 mnuDyn(InxId)
mnuDyn(Inxld) ，Calption=mnuc
mauDyn(InxId) .Visible=True
End Sub
Private SubmnuDel_Click()
Dim i As Integer
If 【7】 Then
MsgBox "菜单项已全部被删除"
Else
Unload mnuDyn(InxId)
InxId=InxId-1
End If
End Sub
