Возможна ли бработка событий внешних компонент в VBScript

Формулировка задачи:

Это возможно???
Есть компонента MSCOMM32.OCX подключается и работает как часы
У нее есть одно событие OnComm, возможно ли его отловить?
Возникает при достижении в буфере чтения порта определенного количитва байт :)

Решение задачи: «Возможна ли бработка событий внешних компонент в VBScript»

textual
                            Листинг программы 
                        

                            Private Sub Ole_OnComm ()
<br>   <font color="blue">Select</font> <font color="blue">Case</font> MSComm1.CommEvent
<br>   <font color="green">' Handle each event or error by placing 
<br>   '</font> code below each <font color="blue">case</font> statement
<br>
<br>   <font color="green">' Errors
<br>      Case comEventBreak   '</font> A <font color="blue">Break</font> was received.
<br>      <font color="blue">Case</font> comEventFrame   <font color="green">' Framing Error
<br>      Case comEventOverrun   '</font> Data Lost.
<br>      <font color="blue">Case</font> comEventRxOver   <font color="green">' Receive buffer overflow.
<br>      Case comEventRxParity   '</font> Parity Error.
<br>      <font color="blue">Case</font> comEventTxFull   <font color="green">' Transmit buffer full.
<br>      Case comEventDCB   '</font> Unexpected error retrieving DCB]
<br>
<br>   <font color="green">' Events
<br>      Case comEvCD   '</font> Change in the CD line.
<br>      <font color="blue">Case</font> comEvCTS   <font color="green">' Change in the CTS line.
<br>      Case comEvDSR   '</font> Change in the DSR line.
<br>      <font color="blue">Case</font> comEvRing   <font color="green">' Change in the Ring Indicator.
<br>      Case comEvReceive   '</font> Received RThreshold # of 
<br>                        <font color="green">' chars.
<br>      Case comEvSend   '</font> There are SThreshold number of 
<br>                     <font color="green">' characters in the transmit
<br>                     '</font> buffer.
<br>      <font color="blue">Case</font> comEvEof   <font color="green">' An EOF charater was found in 
<br>                     '</font> the input stream
<br>   <font color="blue">End</font> <font color="blue">Select</font>
<br><font color="blue">End</font> Sub
                        