Hi Winfred.

How can I use the RBG() Function in a Grid? Each time my recno() changes I want the color assigned to the RBG() Function to setfocus() only on the active record number it is on.

Add a property to the grid called nRecNo and initialize it to 0

This code in the grid's Init()

LOCAL lcBgColor, lcFgColor, lcExp
*** Set up for highlighting current row
DECLARE INTEGER GetSysColor IN "user32" INTEGER nIndex
lcBgColor = TRANSFORM( GetSysColor( 13 ) )
lcFgColor = TRANSFORM( GetSysColor( 14 ) )
lcExp = 'IIF( RECNO( This.RecordSource ) = This.nRecNo, ' + lcFgColor + ', ' + TRANSFORM( This.ForeColor ) + ' )'
This.SetAll( 'DynamicForeColor', lcExp, 'COLUMN' )
lcExp = 'IIF( RECNO( This.RecordSource ) = This.nRecNo, ' + lcBgColor + ', ' + TRANSFORM( This.BackColor ) + ' )'
This.SetAll( 'DynamicBackColor', lcExp, 'COLUMN' )

This code in the grid's AfterRowColChange():

Thisform.LockScreen = .T.
This.nRecNo = RECNO( This.RecordSource )
Thisform.Refresh()
Thisform.LockScreen = .F.