* Traps events for the port communication object
loSock = This.oSock.Object
IF EVENTHANDLER(loSock, THIS)
  * ? 'Event handler succeeded'
ELSE
  * ? 'Event handler failed'
ENDIF