my vb code

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. 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
[download]

sockETH.LocalPort = "5555"                  
sockETH.Listen
[download]

That to listen for the connection

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

and i have another sub in vb to process the data....I mean everything work it just that the socket connection behavior is erratic. work one time then break