>Somewhere I saw the VFP equivalent of the following VB code, but can not find it now.
>
>

>Private TYPE xxx
>  x1 AS LONG
>  x2 AS LONG
>  y1 AS LONG
>  y2 AS LONG
>END TYPE
>

>
>I think it was a webpage somewhere. Anyone have an idea for me?
>
>Thank you.

xxx = createobject("empty")
addproperty(xxx,"x1",0)
addproperty(xxx,"x2",0)
addproperty(xxx,"y1",0)
addproperty(xxx,"y2",0)

Cetin