>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