Buenas Mariano, prueba este codigo:

Define Class MyClass As Relation OlePublic
    procedure init
 
    endproc

    procedure MyTest
          return 1 + 1
    endproc

enddefine

Después crie un projecto y compile un archivo DLL

Ahora puedes llamar el método MyTest

objVar = createobject("MyClass")
lResult = objVar.MyTest

saludos




>Ok, gracias, voy a ver que me sale
>
>Si alguien tiene algun ejemplo, bienvenido sea.
>
>Saludos, Mariano