Sorry I forgot one line :-) You must to export the class I join a demo. Be carrefull It change the way of all the text boxes of your project. You can also make a class named "MyTextBox" with Export Inherit TextBox Public Sub Clear() If not super.ReadOnly then Super.Clear End This way only your class is changed. Regards, -- Fabien Bodard