FoxPro/Visual FoxPro - Procedimiento click crear label en formulario

* Evento Click de un Botón Cualquiera (CommandButton)

tHISFORM.NewObject("Labelx","Label")  && crea un objeto label llamado "Labelx"

WITH thisform.labelx

	.Caption="MiCaption"

	.Fontsize=8

	.Autosize=.t.                                        && opcional. Si no, define .Width y .Height

	.BackColor=RGB(202,205,232)     && un color de fondo

	.ForeColor=RGB(0,0,0)                    && un colo para las letras

	.Top=this.Top+this.Height               && top del label

	.Left=this.left                                       && left del label

	.Visible=.t.	                                      && debes poner esto para que sea visible.

endwith