operty
Public Property Let BarForeColor(oColor As OLE_COLOR)
   m_oBarForeColor = oColor
   Draw
End Property
Public Property Let BarPicture(pic As IPicture)
   pPicture pic, m_picBar
End Property
Public Property Set BarPicture(pic As IPicture)
   pPicture pic, m_picBar
End Property
Public Property Get BarPictureMode() As EVPRGPictureModeConstants
   BarPictureMode = m_eBarPictureMode
End Property
Public Property Let BarPictureMode(ByVal eMode As EVPRGPictureModeConstants)
   m_eBarPictureMode = eMode
   Dr