KCOLOR, 0, lColor
    
    ' Ensure the background to the lines is redrawn:
    iType = tvwOpt.Style
    tvwOpt.Style = 0
    tvwOpt.Style = iType
    
    PropertyChanged "BackColor"
End Property
Public Property Get ForeColor() As OLE_COLOR
Attribute ForeColor.VB_Description = "Gets/sets the colour of the text in the
 control."
    ForeColor = UserControl.ForeColor
End Property
Public Property Let ForeColor(ByVal oColor As OLE_COLOR)
Dim lColor As Long
    ' Cache forecolor in the usercontrol:
    UserCont