PUBLIC oform1 oform1=CREATEOBJECT("form1") oform1.Show DEFINE CLASS form1 AS form ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; Anchor = 1, ; WordWrap = .T., ; Caption = "Click on the form area and resize the after form", ; Left = 98, ; Top = 64, ; ForeColor = RGB(255,255,0), ; BackColor = RGB(255,0,0) ADD OBJECT check1 AS checkbox WITH ; Top = 62, ; Left = 246, ; AutoSize = .T., ; Caption = "Top Absolute", ; ControlSource = "thisform.label1.Anchor" PROCEDURE Label1.Click this.Top = 0 ENDPROC ENDDEFINE- click on Label