>FUNCTION InstanceOf
>	LPARAMETERS oObject,cClassName
>	LOCAL laClassHierarchy,lcClassName,llResult
>	DIMENSION laClassHierarchy[1]
>	IF VARTYPE(oObject)!="O"
>		MyError("Parameter oObject must be of object type")
>	ENDIF
>	IF VARTYPE(cClassName)!="C"
>		MyError("Parameter cClassName must be of character type")
>	ENDIF
>	lcClassName=UPPER(cClassName)
>	ACLASS(laClassHierarchy,oObject)
>	IF ASCAN(laClassHierarchy,lcClassName)>0
>		llResult=.T.
>	ELSE
>		llResult=.F.
>	ENDIF
>	RETURN llResult
>ENDFUNC
>

FUNCTION InstanceOf
	LPARAMETERS oObject,cClassName
	local array laClassHierarchy[1]
	IF VARTYPE(oObject)!="O"
		MyError("Parameter oObject must be of object type")
	ENDIF
	IF VARTYPE(m.cClassName)!="C"
		MyError("Parameter cClassName must be of character type")
	ENDIF
	
	return ACLASS(laClassHierarchy,oObject) > 0 and ;
               ASCAN(laClassHierarchy,m.cClassName,1,-1,1,1+2+4)>0
ENDFUNC