控件屬性編寫的疑點

[paradise885]

寫一個控件時怎樣使它的某一個屬性有多個值, 比如就好象textbox的appearance屬性有"1-3D"與"0-Flat"兩個值，並且在屬性窗口中選定appearance後在屬性窗口的右邊combox列表框中有這兩個值供選擇，請大俠給一示例或e_mail:[e-mail]

[yunyu97]

新建一个标准exe工程，然后加入用户控件，在usercontrol的代码粘贴下面的代码，然后关闭usercontrol的设计器，在form1上放上一个usercontrol，就可以看到你要的效果了
Enum newValue
a
b
End Enum

Private mvalue As newValue
Public Property Let nvalue(value As newValue)
mvalue = value
End Property

Public Property Get nvalue() As newValue
nvalue = mvalue
End Property