如何将自己制作的控件中的一些属性做成下拉框形式的，只能在几个选项中选一个

Question

如何将自己制作的控件中的一些属性做成下拉框形式的，只能在几个选项中选一个

Answer 1

用结构体可以实现如：
Private mvarlblAlignment As uLblAlignment '标签的对齐方式'Label对齐方式
Public Enum uLblAlignment
    [Left Justify] = 0
    [Right Justify] = 1
    [Center] = 2
End Enum'标签的对齐方式
Public Property Let LabelAlignment(varAlignment As uLblAlignment)
    mvarlblAlignment = varAlignment
    UserControl_Resize
End Property
Public Property Get LabelAlignment() As uLblAlignment
    LabelAlignment = mvarlblAlignment
End Property