PROCEDURE QueryUnload THIS.oComm = .null. ENDPROC>I create a comm object and event handler in form init()
>* Form Init() >this.oComm = createobject( "mscommlib.MSComm" ) >EVENTHANDLER( this.oComm, NEWOBJECT("commevents", 'pump.prg' ) ) >>
>DEFINE CLASS commevents AS custom >IMPLEMENTS DMSCommEvents IN "mscommlib.MSComm" > >procedure Destroy >* this event does not fire when form is closed. why ? >ENDPROC > >PROCEDURE DMSCommEvents_OnComm() AS VOID; >HELPSTRING "Occurs whenever the value of the CommEvent property changes." >ENDPROC >ENDDEFINE >