operty
Public Property Get Font() As IFont
   Set Font = m_fnt
End Property
Public Property Set Font(ByRef fnt As IFont)
   Set m_fnt = fnt
   Draw
End Property
Public Property Let Font(ByRef fnt As IFont)
   Set m_fnt = fnt
   Draw
End Property
Public Property Get BarColor() As OLE_COLOR
   BarColor = m_oBarColor
End Property
Public Property Let BarColor(oColor As OLE_COLOR)
   m_oBarColor = oColor
   Draw
End Property
Public Property Get BarForeColor() As OLE_COLOR
   BarForeColor = m_oBarForeColor
End Pr