主题：代码问题

Vars("SysUpdatePrintInfo") = True
With RibbonTabs("数据库")("查询信息")("列名")
    .Items.Clear '清除原有项目
    For Each c As Col In CurrentTable.Cols '遍历当前表中的列
        '定义一个标准按钮,按钮的名称等于列名称.
        Dim b As New RibbonMenu.Button(c.Name)
        b.Text = c.Name '按钮的标题也等于列名称
        .Items.Add(b)
    Next
End With

请问以上代码红色部分怎样改写实现隐藏列不做候选值（不是移除列）。谢谢