FoxPro/Visual FoxPro - Estoy haciendo un programa para ofertarlo a unas Compañias de Almacenes.

Como puedo adicionar un EVENTO Click o Cualquier Otro, a un LABEL, creado desde un Formulario en tiempo de ejecución. Después de Crear las LABEL, cuando se haga Click en cualquiera de ellas, que ejecute un Procedimiento
A modo de Ejemplo, les muestro el Código que he escrito. Mi pregunta es: Como puedo Insertar el EVENTO deseado?

Este código genera 10 LABEL, (Label1, Label2, ..., Label10), Deseo que al hacer Click en cualquiera de ellas, se ejecute un procedimiento estándar para todas.
Gracias.

En tiempo de ejecución no puedes agregar nada a métodos o eventos. Si puedes agregar propiedades con el método .Addproperty de la clase o con la función ADdproperty().

Tienes dos caminos:
1) Crear una clase label en una biblioteca vcx y colocar el código que necesitas en el evento click.
1.1) Si tienes VFP 8 o superior, puedes crear en la clase label una propiedad, por ejemplo que se llame "cRaiseEvent" y al cargar la clase en el formulario le atribuyes el método del form que debe ejecutarse. En el evento click de la clase iría el siguiente código
IF !EMPTY(this.craiseEvent) AND PEMSTATUS(thisform,this.cRaiseEvent,5)
RaiseEvent(Thisform,this.cRaiseEvent)
ENDIF
1.2) Si tienes VFP 6 o 7, puedes crear igualmente la propiedad, pero ahí cambia el código en el evento click;
IF !EMPTY(this.craiseEvent) AND PEMSTATUS(thisform,this.cRaiseEvent,5)
lcRaise = this.raiseEvent
Thisform.&lcRaise()
endif
A su vez, en la misma clase label puedes hacer que la propiedad cRaiseEvent responda tenga un método assign, con el cual, si esta propiedad tiene un valor, el Mousepointer = 15 y ForeColor = Rgb(0,0,255)

2) Si tienes VFP 8 o superior, puedes usar BINDEVENT() creando los respectivos métodos delegados del evento click de la clase. Recuerda que los métodos delegados deben contener los mismos parámetros que el evento que sustituyen.
En el init del form:
BINDEVENT(Thisform.Label1, "Click", thisform, "cMetodoDelegado")

Hola, porque etiquetas y no botones?