Gracias. Yo lo habia probado en algo parecido con la diferencia de...
Código:
Option Explicit
'Definis el Enum
Enum e_MiTipo
[Con borde] = 0
[Sin borde] = 1
End Enum
'Variable local
Private m_estilo As e_MiTipo
'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
Ahora ya todo esta mas claro.
Muchas Gracias.
Saludos