Select Code to Download

If sockETH.State = sckConnected Then
        txbETHsocket.Text = " CONNECTED"
...
        sockETH.LocalPort = "5555"              'ETH socket port. ParC
+on parent needs to know this port, so he can talk to it.
        sockETH.Listen                          'Start listening. His 
+events now can be triggered.
    End If

sockETH.LocalPort = "5555"                  
sockETH.Listen

Private Sub sockETH_ConnectionRequest(ByVal requestID As Long)
    sockETH.Close                                            'Must clo
+se it first before connecting.
    sockETH.Accept requestID                                 'Accept t
+he connection.