Hi,
I am new to "strong typing" of vfp7. May I know what wrong with this code?

	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
	ENDPROC

I get error

Statement:IF IsObject(toHostObject)
Message: No PARAMETER statement is found.Error: 36

Any ideas?

Thank you