Why are you using Class_ ?????

It should be UserControl_ ...


>What's wrong here? The property shows up as Zero in the property
>sheet, yet the default value is set in the constant.
>
>

>Private Const conDefaultRate = 6.125
>Private mInterestRate As Single
>'
>
>Public Property Let InterestRate(newRate As Single)
>   mInterestRate = newRate
>   PropertyChanged "InterestRate"
>End Property
>
>Public Property Get InterestRate() As Single
>   InterestRate = mInterestRate
>End Property
>
>Private Sub Class_WriteProperties(PropBag As PropertyBag)
>   PropBag.WriteProperty "InterestRate", mInterestRate, conDefaultRate
>End Sub
>
>Private Sub Class_ReadProperties(PropBag As PropertyBag)
>   mInterestRate = PropBag.ReadProperty("InterestRate", conDefaultRate)
>End Sub
>
>Private Sub Class_InitProperties()
>   mInterestRate = conDefaultRate
>End Sub
>
>