[RESOLVED] [VB6] - building a new Backcolor property

[joaquim]

i build a new property:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
       sprBackColor = PropBag.ReadProperty("sprBackColor", lngBackColor)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
     PropBag.WriteProperty "sprBackColor", sprBackColor, lngBackColor
End Sub

Public Property Get sprBackColor() As OLE_COLOR
    sprBackColor = lngBackColor
End Property

Public Property Let sprBackColor(newBackColor As OLE_COLOR)
    lngBackColor = newBackColor
    Call ShowImage
    PropertyChanged "sprBackColor"
End Property

my question is: why these property don't save the value from project mode to the run mode?
(i always recive black color . but if i change in project mode works fine(in project mode). and if i change in run mode, works fine. but if i change for vbyellow, in project mode, i recive black in run mode)
thanks