Para que el GET cambie de color cuando tome el foco, tienes que modificar el método GotFocus() de la clase TGET añadiendo al final el texto en rojo. Un saludo. Manuel //----------------------------------------------------------------------------// METHOD GotFocus() CLASS TGet if ! Empty( ::cPicture ...