Fabiano,

Fiz o teu exemplo, mas não consegui pegar o retorno.

Abaixo segue o codigo que eu fiz. Veja se tem algo de errado...

SET CLASSLIB TO zteste ADDITIVE
oForm = CREATEOBJECT('meuformteste')
oForm.Show(1)
oForm = CREATEOBJECT('meuformteste')
h = oForm.Show(1)

>Tudo bem?
>
>O que voce tem que fazer neste caso e criar uma classe:
>
>

>oForm = CreateObjec('classefilho')
>
>
>define class classefilho as MyClassForm
>procedure init
>parameters Inicio
>dodefault() && Para executar o que tinha dentro sem sobrepor
>endproc
>
>procedure unload
>return "meu retorno"
>endproc
>enddefine
>

>
>Ou seja, voce vai cria uma classe filho a partir da sua classe pai customizada.