rol.ForeColor = oColor
    
    ' Set the colour in the TreeView:
    lColor = TranslateColor(oColor)
    SendMessageLong tvwOpt.hwnd, TVM_SETTEXTCOLOR, 0, lColor
    
    ' Request a redraw:
    InvalidateRectAsNull tvwOpt.hwnd, 0, 1
    UpdateWindow tvwOpt.hwnd
    
    PropertyChanged "ForeColor"
End Property
Public Property Get TrackSelect() As Boolean
Attribute TrackSelect.VB_Description = "Gets/sets whether the control will
 highlight the item that the mouse is over."
    TrackSelect = m_bTrackSelect
