PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" BackColor = RGB(255,255,255) Name = "Form1" ADD OBJECT label1 AS label WITH ; AutoSize = .F., ; BackStyle = 0, ; Caption = "Just an example to show the technique", ; Height = 17, ; Left = 80, ; Top = 117, ; Width = 215, ; ForeColor = RGB(0,0,255), ; Name = "Label1" ADD OBJECT shape1 AS shape WITH ; Top = 107, ; Left = 121, ; Height = 36, ; Width = 132, ; BorderStyle = 0, ; BorderWidth = 1, ; DrawMode = 14, ; BackColor = RGB(0,0,255), ; Name = "Shape1" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Drawmode of the Shape below is 14 and it is on top of the Label", ; Height = 17, ; Left = 12, ; Top = 24, ; Width = 351, ; Name = "Label2" ENDDEFINE