
Public Property Get BackColor() As OLE_COLOR
Attribute BackColor.VB_Description = "Gets/sets the back colour of the control."
    BackColor = UserControl.BackColor
End Property
Public Property Let BackColor(ByVal oColor As OLE_COLOR)
Dim lColor As Long
Dim iType As Integer
    
    ' Cache backcolor in the user control:
    UserControl.BackColor = oColor
    ilsIcons.BackColor = oColor
    
    ' Set the colour into the TreeView:
    lColor = TranslateColor(oColor)
    SendMessageLong tvwOpt.hwnd, TVM_SETB