FoxPro/Visual FoxPro - Problema con Visual Fox Pro

Buenas a todos, tengo un problema con Visual FoxPro 9.0, es el siguiente:

En un archivo *.prg defino una clase asi:

DEFINE CLASS persona AS CUSTOM
nombre = "Hernan"
apellido = "Hernandez"
PROTECTED nombre, apellido

FUNCTION mostrar
RETURN this.nombre + " " + this.apellido
ENDFUNC
ENDDEFINE

luego en el evento INIT de un FORM tengo el siguiente codigo:

SET PROCEDURE TO *.prg
PUBLIC oPersona, nombre

oPersona = CREATEOBJECT("persona")

nombre = oPersona.mostrar

=MESSAGEBOX(nombre,048,"Prueba")

Pero no me muestra el mensaje con el nombre, es como si la funcion dentro de la clase no devuelve nada o no funciona no se que pasa, es algo tan sencillo pero no tengo idea el porque no funciona

Ponlo asi

Buenas a todos, tengo un problema con Visual FoxPro 9.0, es el siguiente:

En un archivo *.prg defino una clase asi:

DEFINE CLASS persona AS CUSTOM
nombre = "Hernan"
apellido = "Hernandez"
PROTECTED nombre, apellido

FUNCTION mostrar
parameter v_t
RETURN this.nombre + " " + this.apellido
ENDFUNC
ENDDEFINE

SET PROCEDURE TO *.prg
PUBLIC oPersona, nombre

v_a=""
oPersona = CREATEOBJECT("persona")

nombre = oPersona.mostrar(a)

=MESSAGEBOX(nombre,048,"Prueba")

Gracias amigo, me funciono!!! una ultima pregunta, porque eso funciona asi?? enviando una cadena vacia!!!

El tema es que cuando llamas a una funcion ( en tu caso )

nombre = oPersona.mostrar(a)

y el resultado de esa funcion lo queres poner en una variable (nombre), debes llamar a esa funcion con una variable para poder retornar lo que quieras.