************************************************** *-- Class: converter *-- ParentClass: textbox *-- BaseClass: textbox * DEFINE CLASS converter AS textbox Height = 24 Width = 265 Name = "converter" realsource = 'dummy.color' PROCEDURE convertfrom xSource = (This.RealSource) do case case &xSource = 'Green' this.value = 'Vert' case &xSource = 'Blue' this.value = 'Bleu' case &xSource = 'Yellow' this.value = 'Jaune' case &xSource = 'White' this.value = 'Blanc' EndCase ENDPROC PROCEDURE convertto xSource = This.RealSource do case case this.value = 'Vert' Replace &xSource with 'Green' case this.value = 'Bleu' replace &xSource with 'Blue' case this.value = 'Jaune' replace &xSource with 'Yellow' case this.value = 'Blanc' replace &xSource with 'White' EndCase ENDPROC PROCEDURE Refresh this.convertfrom() ENDPROC PROCEDURE Valid this.convertto() ENDPROC ENDDEFINE * *-- EndDefine: converter **************************************************I hope this help.