Get Ready, Get Set, Property Error...
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:
Code:
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?