工业单据插件问题谁能帮下 单据, 工业, 插件

xfly

要做一工业单据插件，在产品入库单工具栏新增一按钮，要求点此按钮后单据体备注字段自动隐藏，不知怎么实现，有哪位知道？先谢！！
Private Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String)
    Select Case Caption
    Case "隐藏备注"
        MsgBox "ok"
        m_BillTransfer.EntryCtl(20).Visible = False        ‘不起作用；备注的fctlorder=20
    Case Else
    End Select
End Sub