Tcpclient-Tcplistener /Sockets Vb.Net

aplicacion servidor
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports Microsoft.VisualBasic
Public Class TCPSERVIDOR

Public servidorAs TcpListener = Nothing ''servidor de escucha
Public ip As IPAddress = Nothing '' ip del servidor
Public port As Integer = Nothing '' puerto por el que realiza la escucha
Public cliente AsTcpClient = Nothing '' cliente conectado(aceptamos la solicitud y asignamos el tcpclient)
Public leer_escribir As NetworkStream = Nothing '' metodo para enviar y recibir informacion desde cliente

Publicbytes() As Byte '' donde almacenamos lo recibido o lo que vamos a enviar
Public cadena As String = "" ''almacenamos la info antes de codificar o bien despues para tratarla
Public max_connect AsInteger = 10 '' maximas conexiones permitidas
Public conectados = 0 '' usuarios conectados
Public idclientes(max_connect) As IntPtr '' array de identificadores de clientes
Publictcpclientes(max_connect) As TcpClient '' array de tcpclient de los clientes
Public posicion As Integer = 0
Private Sub escucha_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesescucha.CheckedChanged

Try
'' indicamos ip y puerto
ip = IPAddress.Parse("127.0.0.1")
port = 6000
'' asignamos un nuevo tcplistener a servidor
servidor = New TcpListener(ip, port)
servidor.Start()''inicializamos el modo escucha
''
While True
'' preguntamos si existen solicitudes pendientes
'' y posteriormente se acepta y luego se controla si se mantiene
If servidor.Pending() = True Thencliente = servidor.AcceptTcpClient
If conectados < max_connect Then conectados += 1 ''guardamos info del cliente idclientes(posicion) = cliente.Client.Handle.ToString usuarios.Text &="********************************************" & vbCrLf usuarios.Text &= "[ID] " & idclientes(posicion).ToString & " " & "[DT] " & Date.Now & vbCrLf tcpclientes(posicion) = cliente mandar_usuarios() 'If posicion = 0...