>*** ActiveX Control Event *** >DO CASE >* Handle each event or error. > * Events > Case THIS.CommEvent = 1 > * SThreshold # of Characters to Transmit. > Case THIS.CommEvent = 2 > * RThreshold # of characters Received. > Case THIS.CommEvent = 3 > * Change in the CTS line. > Case THIS.CommEvent = 4 > * Change in the DSR line. > Case THIS.CommEvent = 5 > * Change in the CD line. > Case THIS.CommEvent = 6 > * Change in the Ring Indicator. > Case THIS.CommEvent = 7 > * An EOF character was found in the input stream. > * Errors > Case THIS.CommEvent = 1001 > * A Break was received. > Case THIS.CommEvent = 1002 > * CTS Timeout. > Case THIS.CommEvent = 1003 > * DSR Timeout. > Case THIS.CommEvent = 1004 > * Framing Error. > Case THIS.CommEvent = 1006 > * Data Lost. > Case THIS.CommEvent = 1007 > * CD (RLSD) Timeout. > Case THIS.CommEvent = 1008 > * Receive buffer overflow. > Case THIS.CommEvent = 1009 > * Parity Error. > Case THIS.CommEvent = 1010 > * Transmit buffer full. > Case THIS.CommEvent = 1011 > * Unexpected error retrieving DCB >ENDCASE >>
>THISFORM.inbuffer = THISFORM.inbuffer + THISFORM.yourcommcontrol.Input >>