> PROCEDURE Label1.Click > this.Top = 0 > ENDPROC >That fundamentally invalidates it. Please read the example in the help file.
PUBLIC oform1 oform1=CREATEOBJECT("form1") oform1.Show ************************************************** *-- Form: form1 (c:\vfp9app\misc\proveanchoreqivalence.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 06/09/04 10:26:13 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT label1 AS label WITH ; BackStyle = 0, ; Caption = "Label1", ; Height = 17, ; Left = 36, ; Top = 23, ; Width = 40, ; Name = "Label1" ADD OBJECT label2 AS label WITH ; Anchor = 1, ; BackStyle = 0, ; Caption = "Label1", ; Height = 17, ; Left = 36, ; Top = 23, ; Width = 40, ; Name = "Label2" ADD OBJECT label3 AS label WITH ; Anchor = 2, ; BackStyle = 0, ; Caption = "Label1", ; Height = 17, ; Left = 36, ; Top = 23, ; Width = 40, ; Name = "Label3" ADD OBJECT label4 AS label WITH ; Anchor = 3, ; BackStyle = 0, ; Caption = "Label1", ; Height = 17, ; Left = 36, ; Top = 23, ; Width = 40, ; Name = "Label4" ENDDEFINE * *-- EndDefine: form1 **************************************************