Использование Class & Property - VB

Формулировка задачи:

Есть вопрос: Надо в классе зафиговать такую пропертю, чтобы когда я писал Object.PropertyName= у меня вываливались выбор значений (например 1 или 2) - это наподобии как:

                    Листинг программы
                
 
                        
                          
                    
Private lVisible As Boolean 
'======================================
Public Property Get Visible() As Boolean
    Visible = lVisible
End Property
Public Property Let Visible(State As Boolean)
   lVisible = State
End Property

получается Object.Visible = True/False

Решение задачи: «Использование Class & Property»

textual
                            Листинг программы 
                        
 
                        
                          
                    
'ENUM
Public Enum ePosition
    Horisotal = 0
    Vertical = 1
End Enum
'VAR
Private lPosition As Byte 
'======================================
Public Property Get LinePosition() As ePosition
   LinePosition = lPosition
End Property
        Public Property Let LinePosition(State As ePosition)
           lPosition = State
        End Property
 
Private LLine As New Draw3DLine
    LLine.LinePosition = Horisotal / Vertical