a = CreateObject("Myclass")
b = CreateObject("Myclass")
a.StaticField = 3
?b.StaticField

class Empoyee
{
private int id;
private static int nextId = 1;
Public void setId()
{
id = NextId;
NextId++;
}
}

o1=CreateObject("MyClass")
o2=CreateObject("MyClass")

o1.Prop=12
? o2.Prop

Define Class MyClass as Custom

     Prop=0

     Procedure Prop_Assign(NewVal)
     With this
          Local tmp[1], k, o
          .Prop=NewVal
          k=AInstance(tmp,This.Class)
          If k > 0
               For each o in tmp
                    &o..Prop=NewVal
               Next
          EndIf          
     EndWith
EndDefine

If label.width+10+control.width >Container.Width
    Container.Width = label.width+10+control.width
    *Но так должно быть не только для этого контейнера но и для всех так как визуально это должно быть "ровненько"
endif

loX1=createobj('MyClass')
loX2=createobj('MyClass')

loX1.MyProp=1

?loX1.MyProp
?loX2.MyProp

loX1.MyProp=2

?loX1.MyProp
?loX2.MyProp

1
1
2
2

LPARAMETERS eItem, cKey, eBefore, eAfter
IF VARTYPE(eItem)="O"    
    IF     eItem.width>this.cntwidth    
        this.cntwidth = eItem.width
        LOCAL loCont as Container 
        FOR EACH loCont IN this
            loCont.width=THIS.cntwidth
            loCont.Resize()
        ENDFOR 
    ENDIF     
    eItem.width = this.cntwidth 
    eItem.resize
ENDIF