>Cetin:
>
>That code work like a charm. But what is causing that my property get erase?

I suspected what is called a "Grid reconstruction". Here is a sample of scenario:
-At design time you build up your grid with a recordsource.
-At runtime you do something with the recordsource. ie: a select into cursor.

That removes all columns and rebuilts from that cursor's fields. All column and controls level settings are gone. To prevent it:

.RecordSource = ""
* do whatever here. ie: select * from customer where ... into cursor crsGridSource
.RecordSource = "crsGridSource"

That'd keep settings during design intact. You can find details about grid reconstruction in FAQ section.
Cetin