oRT = CREATEOBJECT('RTMethod') lcTestCode = 'MESSAGEBOX("HELLO")'+CHR(13)+CHR(10)+'MESSAGEBOX("GOODBY")' oRT.RTMethod(lcTestCode) DEFINE CLASS RTMethod AS Custom PROCEDURE RTMethod LPARAMETERS RTCode EXECSCRIPT(RTCode) ENDPROC ENDDEFINE