Visual Basic.NET - Ayuda con SOCKET - programador / a

Dim client As New TcpClient

         Dim command As String

        Try

            Dim sendBytes(1024) As Byte // para enviar de a 1024 caracteres.

            client.Connect( IP , Puerto)

            command = "tu texto u objeto."

            sendBytes = Encoding.UTF8.GetBytes(command)

            client.Client.Send(sendBytes)

            client.Close()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

server.start

Dim bytes() As Byte

dim mensaje as string

 Try

                CLIENTES = server.AcceptTcpClient // clientes del tipo tcpClient y server de tcpListener(IP, Puerto) 

                NS = CLIENTES.GetStream

                ReDim bytes(1024)

                NS.Read(bytes, 0, tamaño)

                mensaje = Encoding.UTF8.GetString(bytes) // la info convertido a string o crea el objeto que quieras.

 Catch e As Exception

                MessageBox.Show(e.ToString)

            End Try