vb6 基于文本框的自定义控件的问题

[manpuku]

这个自定义控件是别人写的，没有locked属性属性部分代码是

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "MaxLength", MaxLength
PropBag.WriteProperty "ValidChar", ValidChar

PropBag.WriteProperty "Text", txtEdit.Text
PropBag.WriteProperty "Enabled", Enabled
PropBag.WriteProperty "IMEMode", miImeMode

PropBag.WriteProperty "AutoSel", mbAutoSel


PropBag.WriteProperty "Left", txtEdit.Left
PropBag.WriteProperty "Width", txtEdit.Width
PropBag.WriteProperty "Top", txtEdit.Top
PropBag.WriteProperty "Height", txtEdit.Height
PropBag.WriteProperty "Font", txtEdit.Font
PropBag.WriteProperty "FontName", txtEdit.FontName
PropBag.WriteProperty "FontSize", txtEdit.FontSize

End Sub

然后我给加了一句

PropBag.WriteProperty "Locked ", txtEdit.Locked, False

后无效，不知道是为什么？
还有搜索了下locked属性发现这么一段不知道干嘛的

Public Property Let UnLocked(piEnabled As Boolean)
txtEdit.Locked = Not piEnabled
PropertyChanged "UnLocked"
End Property

[manpuku]

有人知道怎么搞吗

[xxfly]

可通过ActiveX控件接口向导来选择Locked属性，然后再映射到txtEdit