如和新建动态子菜单

Question

已经找到新建菜单命令，但我的需求是在某个菜单下面新建子菜单，如何实现？
Private Sub mnuDynaAdd_Click()    Dim str$, i%    str = InputBox("输入所要增加的菜单项的标题", "菜单标题", "MenuName")     '增加一个指定标题的菜单
    i% = mnuDynaArray.UBound    Load mnuDynaArray(i% + 1)    If Len(str) = 0 Then str = "新增菜单项，索引号为" & mnuDynaArray(i% + 1).Index    mnuDynaArray(i% + 1).Caption = str
    mnuDynaArray(i% + 1).Visible = True'    mnuDynaArray(0).Visible = True
    mnuDynaDel.Enabled = True
    mnuDynaDelLast.Enabled = TrueEnd Sub