Class TestClass
  Private Sub Class_Initialize	' Setup Initialize event.
    MsgBox("TestClass started")
  End Sub
  Private Sub Class_Terminate	' Setup Terminate event.
    MsgBox( "TestClass terminated" )
  End Sub
End Class

Set X = New TestClass	' Create an instance of TestClass.
Set X = Nothing		' Destroy the instance.

WScript.Echo  "Started" 
WScript.Sleep  5000 
WScript.Echo  "Finished" 

Private Sub Ole_OnComm ()
   Select Case MSComm1.CommEvent
   ' Handle each event or error by placing 
   ' code below each case statement

   ' Errors
      Case comEventBreak   ' A Break was received.
      Case comEventFrame   ' Framing Error
      Case comEventOverrun   ' Data Lost.
      Case comEventRxOver   ' Receive buffer overflow.
      Case comEventRxParity   ' Parity Error.
      Case comEventTxFull   ' Transmit buffer full.
      Case comEventDCB   ' Unexpected error retrieving DCB]

   ' Events
      Case comEvCD   ' Change in the CD line.
      Case comEvCTS   ' Change in the CTS line.
      Case comEvDSR   ' Change in the DSR line.
      Case comEvRing   ' Change in the Ring Indicator.
      Case comEvReceive   ' Received RThreshold # of 
                        ' chars.
      Case comEvSend   ' There are SThreshold number of 
                     ' characters in the transmit
                     ' buffer.
      Case comEvEof   ' An EOF charater was found in 
                     ' the input stream
   End Select
End Sub

Sub agent_event (ByVal parameter[,ByVal parameter])
statements…
End Sub