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.