XTPControlEdit locking

I would really appreciate any suggestion on this problem as the time is an important factor. Here is the code that defines it.

Dim cdjCtrls        &nbs p;       As CommandBarControls
Dim cdjBars          ;       As CommandBars

CommandBarsGlobalSettings.App = App

Set cdjBars = frmMain.CommandBars
Set toolbar = cdjBars.Add("Toolbar", xtpBarTop)
Set cdjCtrls = toolbar.Controls
Dim ctlEdit As CommandBarEdit
Set ctlEdit = cdjCtrls.Add(xtpControlEdit, ID_EDIT_LOCKED, "Locked value:")
With ctlEdit
    .Width = 250
    .ToolTipText = "Locked value"
    .BeginGroup = True
End With

cdjBars.AddImageList frmMain.imlToolbarIcons

cdjBars.Options.UseDisabledIcons = True

cdjBars.EnableCustomization (True)

To be more explicit, it should behave exactly like a TextBox control with the Locked property set, since the item value only holds information of current parameter.