PROCEDURE INIT(toHostObject AS Object) AS Boolean IF IsObject(toHostObject) THIS.oHostObject = toHostObject ENDIF WITH THIS .oWarningCollection = CREATEOBJECT(.cCollectionClass) .oBrokenRuleCollection = CREATEOBJECT(.cCollectionClass) .oRequiredFieldCollection = CREATEOBJECT(.cCollectionClass) .oEmptyRequiredFieldCollection = CREATEOBJECT(.cCollectionClass) ENDWITH ENDPROCI get error