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

这个自定义控件是别人写的，没有locked属性属性部分代码是Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "MaxLength", MaxLength
PropBag.WriteProperty "ValidChar", ValidCharPropBag.WriteProperty "Text", txtEdit.Text
PropBag.WriteProperty "Enabled", Enabled
PropBag.WriteProperty "IMEMode", miImeModePropBag.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.FontSizeEnd Sub然后我给加了一句
PropBag.WriteProperty "Locked ", txtEdit.Locked, False
后无效，不知道是为什么？
还有搜索了下locked属性发现这么一段不知道干嘛的
Public Property Let UnLocked(piEnabled As Boolean)
txtEdit.Locked = Not piEnabled
PropertyChanged "UnLocked"
End Property