Private Sub sockETH_ConnectionRequest(ByVal requestID As Long)
    sockETH.Close                                            'Must close it first before connecting.
    sockETH.Accept requestID                                 'Accept the connection.