PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (c:\testpf2.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 08/16/05 01:30:06 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" *-- XML Metadata for customizable properties _memberdata = "" Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; ErasePage = .T., ; PageCount = 2, ; Top = 113, ; Left = 208, ; Width = 241, ; Height = 169, ; Name = "Pageframe1", ; Page1.Caption = "Page1", ; Page1.BackColor = RGB(128,255,128), ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT shape1 AS shape WITH ; Top = 12, ; Left = 12, ; Height = 151, ; Width = 188, ; FillStyle = 0, ; Name = "Shape1" ADD OBJECT spinner1 AS spinner WITH ; Height = 24, ; Left = 220, ; Top = 23, ; Width = 121, ; Name = "Spinner1" PROCEDURE Load DECLARE INTEGER GetSysColor IN user32 INTEGER nIndex ENDPROC PROCEDURE shape1.Init #DEFINE W32_COLOR_BTNFACE 15 this.FillColor = GetSysColor(W32_COLOR_BTNFACE) && I thought this would be the one ENDPROC PROCEDURE spinner1.InteractiveChange thisform.shape1.FillColor = GetSysColor(this.value) ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************