Get Ready, Get Set, Property Error...

[DNA7433]

Just this afternoon i decided to look into properties and realized they would be really good for the program im currently working on.

i have this code and only this code in a class module:

Private Type Deviations
    Average As Double
    Deviation As Double
End Type

Dim Dev As Deviations

Public Property Get Deviation() As Double
    Deviation = Dev.Deviation
End Property

Public Property Get Average() As Double
    Average = Dev.Averages
End Property

Public Property Set Deviation(SetValue As Double)
    Dev.Deviation = SetValue
End Property

Public Property Set Average(SetValue As Double)
    Dev.Average = SetValue
End Property

when i try to compile it gives me an error:
Definitions of property procedures for the same property are inconsistent or property procedure has an optional parameter, a ParamArray, or an invalid Set final parameter

so whats up?

[Kaverin]

Change each Set to Let. Property Set statements are for when the passed in thing is an object.

[John Yingling]

You want PROPERTY LET for implicit LET e.g. (Let) myobj.AVERAGE = .5. PROPERTY SET is for SET statements e.g. SET myobj.someobject = someotherobject.

[DNA7433]

thanks

i must have read it wrong in the help file, cuz i know set is used to objects in other parts of code, but i could have sworn thats the way the help file had it

anyways