* Method SetCaption LPARAMETERS tcCaption lnOldWidth = This.label1.Width This.label1.Caption = tcCaption lnNewWidth = This.label1.Width This.Width = This.Width + (lnNewWidth - lnOldWidth)>I've created a container class. It has a label class inside it. The label class has AutoSize set to TRUE. It also has an Assign method
>LPARAMETERS vNewVal > >THIS.CAPTION = m.vNewVal >This.Parent.Width = this.Width + this.Parent.image1.Width + 2>