控件属性自动消失？

Question

做了个最简单的控件，一个Label，写以下代码
但程序一运行，在运行前调好的Caption属性却没了，怎么回事？Option ExplicitPrivate Cap As StringProperty Get Caption() As String
    Caption = Cap
End PropertyProperty Let Caption(Effect As String)
    Cap = Effect
    Label1.Caption = Cap
    Refresh
    PropertyChanged "Caption"
End Property

Answer 1

Property Get Caption() As String
    Caption = LABEL1.CAPTION
End PropertyProperty Let Caption(Effect As String)
    Label1.Caption = Effect
    PropertyChanged "Caption"
End Property
再修改一下属性盒即可.

Answer 2

用向导
将label.caption映射到你的caption