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