主题：求助，快捷菜单子菜单的Item属性及延迟的问题

 ContextMenus("目录树").Items("增加").Items("下级节点").Enable =False
属性无效，我要让"下级节点"这个按钮不可用要怎么写？好像FX不支持子菜单的按钮的不可用


另外我最想要的是根据条件隐藏掉，但是延迟很严重啊
If e.Button = MouseButtons.Right Then
    Dim trv As WinForm.TreeView = e.sender
    If trv.nodes.Count =0
        ContextMenus("目录树").Show(e.sender,e.x,e.y)
        ContextMenus("目录树").Items("重命名").Visibled =False
        ContextMenus("目录树").Items("增加").Items("下级节点").Visible =False
        ContextMenus("目录树").Items("增加").Items("同级节点").Visible =False
        ContextMenus("目录树").Items("删除").Visible =False
        ContextMenus("目录树").Items("上移").Visible =False
        ContextMenus("目录树").Items("下移").Visible =False
        ContextMenus("目录树").Items("左移").Visible =False
        ContextMenus("目录树").Items("右移").Visible =False
    Else
        If trv.SelectedNode IsNot Nothing Then
            ContextMenus("目录树").Show(e.sender,e.x,e.y)
            ContextMenus("目录树").Items("重命名").Visible =True
            ContextMenus("目录树").Items("增加").Items("下级节点").Visible =True
            ContextMenus("目录树").Items("增加").Items("同级节点").Visible =True
            ContextMenus("目录树").Items("删除").Visible =True
            ContextMenus("目录树").Items("上移").Visible =True
            ContextMenus("目录树").Items("下移").Visible =True
            ContextMenus("目录树").Items("左移").Visible =True
            ContextMenus("目录树").Items("右移").Visible =True
        End If
    End If
End If