*-- Arquivo de funções (Func.PRG) incluído no projeto FUNCTION Soma(a as Number, b as Number) as Number RETURN a+b ENDFUNC *-- Arquivo da classe (Teste.prg) também incluído no projeto DEFINE CLASS Teste as Custom olepublic PROCEDURE Init SET PROCEDURE TO Func ENDPROC FUNCTION Soma(a as Number, b as Number) as Number RETURN Soma(a,b) ENDFUNC ENDDEFINEUm abraço!