Macro - readonly multibox field

[#1]

can  i do the operation described in this image through a macro?:

i wont to set the properties of the object field of a "multi-box" "readonly"

[m_woolf]

From the API Guide:

set mybox = ActiveDocument.GetSheetObject("MB01")

mbp = mybox.GetProperties

mbp.Layout.ReadOnly = true

mybox.SetProperties mbp

[#3]

thx!

i want to apply this macro to only one field and not to all.

how can i do?

[m_woolf]

From the API Guide:

set mybox = ActiveDocument.ActiveSheet.CreateMultiBox

mybox.AddField "Class"

mybox.AddField "ClassComment"

mbp = mybox.GetProperties

mbp.MemberAttributes.Item(1).ReadOnly = true

mybox.SetProperties mbp