Found some info http://news2news.com/vfp/?group=71&function=59 now I need to find if we have number to represent pageframe color.

>Nadia, err Naomi
>
>Unfortunately, I do not know the answer, maybe Fabio Lunardon or Craig Boyd (and of course Sergey) might be able to help you with this, it does not seem to me to be a single color, it is maybe a small gradient? I do not know from where it is taken, I tried with GetSysColor, but it did not help, here is my test:
>
>I even tried capturing the window and copying the color to see the actual values but it does not look the same.
>
>(Changing the shape's init to: this.FillColor = Rgb(245,244,240))
>
>

>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
>**************************************************
>