'还有两个过程
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
名字2 = PropBag.ReadProperty("AAA", 1)'默认值1
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("AAA", 名字2, 1)
End Sub
Public Enum 名字1
一 = 1
二 = 2
三 = 3
四 = 4
五 = 5
End Enum
Dim 名字2 As 名字1
Public Property Get AAA() As 名字1
AAA = 名字2
End Property
Public Property Let AAA(ByVal New名字2 As 名字1)
名字2 = New名字2
PropertyChanged "AAA"
UserControl_Resize
End Property