Imports System.Threading
Imports System.Net.Sockets

Public Class Form2

    Private Structure InfoDeUnCliente

        Public Socket As Socket
        Public Thread As Thread
        Public UltimosDatosRecibidos As String

    End Structure

    Private tcpLsn As TcpListener
    Private Clientes As New Hashtable()
    Private tcpThd As Thread
    Private IDClienteActual As Net.IPEndPoint

    Public Event NuevaConexion(ByVal IDTerminal As Net.IPEndPoint)

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        EsperandoCliente()

    End Sub

    Private Sub EsperandoCliente()

        Dim InfoClienteActual As InfoDeUnCliente

        With InfoClienteActual

            While True

                .Socket = tcpLsn.AcceptSocket()

                IDClienteActual = .Socket.RemoteEndPoint

                .Thread = New Thread(AddressOf LeerSocket)

                SyncLock Me

                    Clientes.Add(IDClienteActual, InfoClienteActual)

                End SyncLock

                RaiseEvent NuevaConexion(IDClienteActual)

                .Thread.Start()

            End While

        End With

    End Sub

    Private Sub LeerSocket()

    End Sub

End Class