怎样令自编控件的属性为某个默认值

[setmenothing]

private mA as boolean

public property get A() as boolean
a=ma
end property

public property let A(byval vnewvalue as boolean)
ma=vnewvalue
end property

private usercontrol_initialize()
'?
end sub

这样得到的默认属性是a=false
怎样才能得到默认属性是a=true

[zyl910]

private usercontrol_initialize()
mA=True
end sub

[setmenothing]

这样的话，在属性面板上设置属性为False就不起作用了

[glite]

在控件的ReadPropertie事件中加入
mA = PropBag.ReadProperty("A", true)