If sockETH.State = sckConnected Then
        txbETHsocket.Text = " CONNECTED"
    Else
        txbETHsocket.Text = " OFF"
        If sockETH.State <> sckClosed Then sockETH.Close
        sockETH.LocalPort = "5555"              'ETH socket port. ParCon parent needs to know this port, so he can talk to it.
        sockETH.Listen                          'Start listening. His events now can be triggered.
    End If

##</code><code>##

sockETH.LocalPort = "5555"                  
sockETH.Listen

##</code><code>##

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