It is often useful to hide the grid header with HeaderHeight = 0
The first horizontal black line belongs to the header,
VFP draw it over the upper grid border line
Horrible by to see.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
ACTIVATE SCREEN
? "grid top",OBJTOCLIENT(oform1.grid1,1)
? "header top",OBJTOCLIENT(oform1.grid1.Column1.Header1,1)

RETURN

DEFINE CLASS form1 AS form
	
	autocenter = .T.
	Caption = "Form1"
	BackColor = RGB(255,255,128)
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 2, ;
		GridLineColor = 255, ;
		HeaderHeight = 0, ;
		Left = 24, ;
		Top = 26

ENDDEFINE