CREATE CLASSLIB Junk CREATE CLASS MyTextBox OF Junk.VCX AS _Textbox From _Base.VCX MODIFY CLASS MyTextBox OF Junk.VCX NOWAIT ASELOBJ(xx) xx[1].Width= 100 xx[1].Writemethod("Click","WAIT WINDOW PROGRAM() NOWAIT" + CHR(13)+ "RETURN .T.") xx[1].Save()