VBGamer

Ok, here is the code for part of my class: Private mvarSrcRect As Rect Public Property Set SrcRect(ByRef vData As RECT) 'used when assigning an Object to the property, on the left side of a Set statement. 'Syntax: Set x.SrcRect = Form1 Set mvarSrcRect = vData End Property Public Property Get SrcRect() As RECT 'used when retrieving value of a property, on the right side of an assignment. 'Syntax: Debug.Print X.SrcRect Set SrcRect = mvarSrcRect End Property But it won't compile, error message: "Definitions of property procedures for the same property are inconsistent or contain optional parameters or a ParamArray". Now this code is made totally by the Class Builder, and the only thing I have changed is the ByVal in the property set to a ByRef (I didn't get an error, but I assumed I would need to do this as it is a UDT which can't be passed ByVal) What is wrong with it (And I did read the help thing, and it sounded like everything was ok) Any help?