Hola te paso un ejemplo:
en un modulo de clase llamado Class1
Código:
Option Explicit
'Definis el Enum
Enum e_MiTipo
[Con borde] = 0
[Sin borde] = 1
End Enum
'Variable local
Private m_estilo As Long
'Lee la propiedad
Public Property Get Estilo() As e_MiTipo
Estilo = m_estilo
End Property
'Escribe la propiedad
Public Property Let Estilo(ByVal vNewValue As e_MiTipo)
m_estilo = vNewValue
End Property
en un form:
Código:
Option Explicit
Private Sub Form_Load()
Dim c As Class1
Set c = New Class1
'Le asignamos un valor de la lista del enum a Estilo
c.Estilo = [Con borde]
'Muestra el valor de la propiedad
MsgBox c.Estilo
Set c = Nothing
End Sub
Fijate que las propiedades son de tipo e_Mitipo, es decir el enum
saludos