Para facilitarnos la codificación anidada mediante WITH OBJECT hemos creado :WO que sustituye a :__WithObject() para hacer referencia al control que contienen al que estamos codificando.

WITH OBJECT WBevel():New( :__WithObject() )
     :cTitle      := "BANDERA FRANCESA"
     :nStyle      := xc_Row      // el Bevel usará toda la fila
     :cTitleAlign := xc_Center
     :Create()
END WITH

WITH OBJECT WBevel():New( :WO )
     :cTitle      := "BANDERA FRANCESA"
     :nStyle      := xc_Row      // el Bevel usará toda la fila
     :cTitleAlign := xc_Center
     :Create()
END WITH