将下面语句添加到你的用户控件模块中Public Property Get Caption() As String
Caption = Label1.CaptionEnd PropertyPublic Property Let Caption(ByVal vNewValue As String) Label1.Caption = vNewValueEnd Property '补充,我明白你的意思了=======================’将下面语句再添加到你的用户控件模块中Private Sub UserControl_ReadProperties(PropBag As PropertyBa...