)
   m_lValue = lValue
   Draw
End Property

Public Property Get BorderStyle() As EVPRGBorderStyleConstants
   BorderStyle = m_eBorderStyle
End Property
Public Property Let BorderStyle(ByVal eStyle As EVPRGBorderStyleConstants)
   m_eBorderStyle = eStyle
   Draw
End Property
Public Property Get Appearance() As EVPRGAppearanceConstants
   Appearance = m_eAppearance
End Property
Public Property Let Appearance(ByVal eAppearance As EVPRGAppearanceConstants)
   m_eAppearance = eAppearance
   Draw
End Property
Pu