>How can i obtain the return value from this objet?
>
>*** The object is a MODAL Form
>*** On the method UNLOAD i have this Code
>*** RETURN 150
>
>LOCAL oObj
>oObj=CREATEOBJECT("frmTeste",1,"")
>oObj.Show
>
>?oObj.??????????????
>
>[]'s

You can do this with a trick:

WITH NEWOBJECT('myModal')
          .show
 getCode= .returnCode
ENDWITH
?  m.getCode

DEFINE CLASS myModal as Form
   WindowType = 1
   returnCode = .NULL.
   
   PROCEDURE QueryUnload
     this.returnCode = 150
     
   PROCEDURE Release
       NODEFAULT 
       * Name must to be unique
       RELEASE WINDOWS (m.this.Name)
       * or you can use API 
       * PostMessage(m.this.hwnd,16,0,0)
       
ENDDEFINE