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

[joaquim]

i have 1 property:

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?