>>oform = CREATEOBJECT("form") >>oform.ADDOBJECT("ComReader","ComReader") >>oform.ADDOBJECT("test","cntTest1") >>EVENTHANDLER(oform.ComReader.OBJECT, oform.test) >>oform.show() >>READ EVENTS >> >>*!* definition of cntTest1: >>DEFINE CLASS cntTest1 AS CUSTOM >> IMPLEMENTS DMSCommEvents IN "MSCommLib.MSComm" >> PROCEDURE DMSCommEvents_OnComm() AS VOID; >> HELPSTRING "Occurs whenever the value of the CommEvent property changes." >> * add user code here >> ?oform.Comreader.INPUT >> ENDPROC >>ENDDEFINE>>