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