[VB6] - property reciving a strange values, when is used

i have 1 property:

Code:

---

Public Property Get BorderSelectionColor() As OLE_COLOR
    BorderSelectionColor = lngBorderSelectionColor
End Property

Public Property Let BorderSelectionColor(ByVal vNewValue As OLE_COLOR)
    lngBorderSelectionColor = vNewValue
    Call ShowImage
    PropertyChanged "BorderSelectionColor"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)   
    BorderSelectionColor = PropBag.ReadProperty("BorderSelectionColor", 0)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  PropBag.WriteProperty "BorderSelectionColor", BorderSelectionColor, 0
End Sub

---

i change the property value in project mode and is saved. the problem is that, when i use it, the value is negative. can anyone advice me?

Negative values are usually VB system colors (i.e., vbButtonFace for example).
To convert a VB system color to a valid RGB color, you can use the GetSystColor API. The color code to pass to that api are stored in the 1st byte of the VB system color:

Code:

---

RGBcolor = GetSysColor(lngBorderSelectionColor And &HFF&)

---

Quote:

---

Originally Posted by LaVolpe

Negative values are usually VB system colors (i.e., vbButtonFace for example).
To convert a VB system color to a valid RGB color, you can use the GetSystColor API. The color code to pass to that api are stored in the 1st byte of the VB system color:

Code:

---

RGBcolor = GetSysColor(lngBorderSelectionColor And &HFF&)

---

---

yes.. that's true.. thanks for the information. but for see working i delete the manifestment file(that file for give XP style in VB 6 IDE). then i can use the pallete colors and works fine;)
thanks for everything