PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form ADD OBJECT edit1 AS editbox WITH ; Anchor = 10, ; Height = 61, ; Left = 48, ; Top = 128, ; Width = 231, ; Name = "Edit1" ADD OBJECT spinner1 AS spinner WITH ; Anchor = 10, ; Height = 24, ; Left = 48, ; Top = 54, ; Width = 231, ; BackColor = RGB(255,128,128), ; Name = "Spinner1" ADD OBJECT combo1 AS combobox WITH ; Height = 25, ; Left = 48, ; Top = 90, ; Width = 231, ; BackColor = RGB(255,128,128), ; Name = "Combo1" ADD OBJECT text1 AS textbox WITH ; TabIndex = 1,; Anchor = 10, ; Height = 22, ; Left = 48, ; Top = 14, ; Width = 231, ; BackColor = RGB(255,128,128), ; Name = "Text1" PROCEDURE Init this.SetAll("Anchor",15) ENDPROC PROCEDURE MouseMove LPARAMETERS a,b,c,d this.SetAll("Left",20) ENDPROC ENDDEFINE