I created this solution for my 'problem':

FOR nKolNummer = 1 TO This.ColumnCount
This.Columns(nKolNummer).Header1.ForeColor = ;
IIF(This.Columns(nKolNummer).ColumnOrder = This.ActiveColumn,;
RGB(255,255,255), RGB(0,0,0))
This.Columns(nKolNummer).Header1.BackColor = ;
IIF(This.Columns(nKolNummer).ColumnOrder = This.ActiveColumn,;
RGB(0,0,255), RGB(192,192,192))
NEXT

I put this code in the AfterRowColChange method for my grid. I don't know if it's the fastest and easiest solution, but it works quite allright.

Any comment is welcome...

Michel