Nick,

I've writen the code 'THISFORM.cntGridCover1.Zorder(0)' but the error still occur and I trace that it comes from the cntGridCover1->init event.

This is the code :
------------------
WITH THIS
Local lcHost
.borderwidth = 0 && It has visible border only in development mode
for developer's convenience
.cInternal1 = "this.parent." + .NAME + ".nRecno"
.cHostName = ALLTRIM(.cHostName)
lcHost = .cHostName

* this is the error line
* -------------------------------------------------------------------
.cAlias = IIF(INLIST(.PARENT.&lcHost..RECORDSOURCETYPE, 3, 4), SUBSTR
(.PARENT.&lcHost..COLUMNS(1).CONTROLSOURCE, 1, AT'.',
.PARENT.&lcHost..COLUMNS(1).CONTROLSOURCE) - 1 ) , .PARENT
.&lcHost..RECORDSOURCE)
* -------------------------------------------------------------------

.SetDynamicColor()
ENDWITH