I just wrote the SAME program as yours to check :o))

>Thanks,
>
>This also works. Maybe it is something in the SET_FORM_SIZE method. I will keep looking.
>
>

>
>x1 = CREATEOBJECT("Form1")
>x1.Show()
>ON KEY LABEL ESC CLEAR EVENTS
>READ EVENTS
>**************************************************
>*-- Form:         form1 (c:\program files\microsoft visual foxpro 9\test.scx)
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Time Stamp:   05/27/05 09:09:07 PM
>*
>DEFINE CLASS form1 AS form
>
>
>    DoCreate = .T.
>    Caption = "Form1"
>    Name = "Form1"
>	ADD OBJECT obj1 as myclass
>
>    PROCEDURE Init
>
>    ENDPROC
>
>
>ENDDEFINE
>
>DEFINE CLASS myclass AS CUSTOM
>	PROCEDURE Init
>		BINDEVENT(THISFORM,"SHOW",THIS,"SET_FORM_SIZE",1)
>	ENDPROC
>
>	PROCEDURE SET_FORM_SIZE
>        this.Height = this.Height * 2
>        this.Width = this.Width * 1.5
>        =MESSAGEBOX("SET_SIZE")
>	ENDPROC
>ENDDEFINE
>
>