 bState As Boolean)
   m_bXpStyle = bState
   Draw
End Property

Public Property Get Text() As String
   Text = m_sText
End Property

Public Property Let Text(ByVal sText As String)
   m_sText = sText
   Draw
End Property

Public Property Get TextAlignX() As EVPRGHorizontalTextAlignConstants
   TextAlignX = m_eTextAlignX
End Property
Public Property Let TextAlignX(ByVal eAlign As
 EVPRGHorizontalTextAlignConstants)
   m_eTextAlignX = eAlign
   Draw
End Property
Public Property Get TextAlignY() As EVPRGVerti