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