Great, I now have 6 versions :-)
>Great, now it Works fine, the final code looks like this (with the class)
>
>
>SET PROCEDURE TO cCustomForm.PRG
>SET CLASSLIB TO struct.vcx
>
>loForms = CREATEOBJECT("cCustomForms")
>IF loForms.CreateForm(190000,215000,"MyPaper",GETPRINTER())
> Messagebox("Custom Form Created Sucefull")
>ELSE
> Messagebox("Error Creating Form")
>ENDIF
>
>loForms = NULL
>RELEASE loForms
>
>>
>
>
>
>This works in VFP8 Service Pack 1:
>>DEFINE CLASS forminfo as Struct
> nflags = 0
> pName = NULL
> sizel = NULL
> rectl = NULL
> cMembers = "ul:nflags, pz:pName, o:sizel, o:rectl"
>
> PROCEDURE init
> this.sizel = CREATEOBJECT("PSIZE")
> this.rectl = CREATEOBJECT("PRECT")
> DODEFAULT()
> ENDPROC
>ENDDEFINE
