Create a program called MyBuilder.prg and add the following code:

LPARAMETERS oObject, cButton

cCaption = INPUTBOX("Enter a caption")

oObject.label1.Caption = cCaption

RETURN

Add a property to your class called 'builder'

Set it to the full path and name of the builder prg you created.

Right click on the class and choose 'builder' from the menu.

The code above will run.




>Hi,
>
>I'm trying to create a custom control based on the VFP control class. At design time I dropped a label in the control along with a shape. I created a custom property for the control named Caption that has an assign method to change the label's caption. In the control's init event, I set Caption=Caption to force the assign to update the label's caption.
>
>This works fine at runtime. How can I update the label's caption at design time? When I drop a instance of this class on a form, the label and shape objects are not available (since it is a Control control).
>
>Regards,
>
>Mike