Add the Following

1. Add New Property xrecno and assign 0 (Zero)

2. Add This In init

This.SetAll("DynamicBackColor", ;
"IIF(RECNO( )=Thisform.xrecno, RGB(255,255,255) ;
, RGB(0,255,0))", "Column") && Alternate white and green records

3. Add This In Afterrowcolchange

Thisform.nrecno=Recno()
This.Refresh

Zaheer Ahmed.