Whats wrong ???

[Edneeis]

Shouldn't the code be like this:

Public Enum TMode 
adText = 1 
adTextRTF = 0 
End Enum 
 
Private m_TextMode as TMode
 
Public Property Get TextMode() As TMode
    TextMode=m_TextMode
End Property 
 
Public Property Let TextMode(ByVal vNewValue As TMode) 
    m_TextMode=vNewValue
End Property

Also if you are talking about an activeX control then you have to also have to write it to the property bag.