CLEAR CREATE CLASS test OF test1 as custom nowait TEXT TO initcode NOSHOW ? '1111111111111' ? '11111' ENDTEXT aselobj[ax] ax[1].writemethod('Init',initcode) RELEASE AX ACTIVATE WINDOW (WONTOP()) KEYBOARD '{CTRL+W}' PLAIN DOEVENTS USE test1.VCX REPLACE FOR objName=='test' AND NOT ISBLANK(Class); Methods WITH STRTRAN(Methods,initcode,"? 'Look ENDPRO line'") USE MODIFY CLASS test OF test1 METHOD Init * remove a byte CREATE CLASS test OF test1 as custom nowait TEXT TO initcode NOSHOW ? '1111111111111' ? '1111' ENDTEXT aselobj[ax] ax[1].writemethod('Init',initcode) RELEASE AX ACTIVATE WINDOW (WONTOP()) KEYBOARD '{CTRL+W}' PLAIN DOEVENTS USE test1.VCX REPLACE FOR objName=='test' AND NOT ISBLANK(Class); Methods WITH STRTRAN(Methods,initcode,"? 'Look ENDPR line'") USE MODIFY CLASS test OF test1 METHOD Init