GESTION DE SOCKET EN VB.NET

Public Class C_SOCKET
    Public SOCKET_SOCK As System.Net.Sockets.NetworkStream
    Public SOCKET_STATE As String = "Free"
End Class

Public Class C_STREAM
    ' Adresse Ip du serveur au format texte EX "127.0.0.1"
    Private STREAM_IP As String
    ' Port du server
    Private STREAM_PORT As String
    ' Nombre Max de socket
    Private STREAM_MAX As Integer
    ' Tableau de 32 Connexion potentiel
    Private STREAM_UNIT() As C_SOCKET
    'Init des sockets stream plus blocage des socket au dessus de max
    Public Sub New(ByVal IP As String, ByVal PORT As Int32, Optional ByVal MAX As Int32 = 16)
        Array.Resize(Me.STREAM_UNIT, MAX)
        Me.STREAM_IP = IP
        Me.STREAM_PORT = PORT
        For i = 0 To MAX - 1
            Me.STREAM_UNIT(i) = New C_SOCKET
        Next
    End Sub
    'Ferme le socket envoyé en paramatres
    Public Sub STREAM_CLOSE_STREAM(ByVal This_Stream As C_SOCKET)
        This_Stream.SOCKET_SOCK.Close()
        This_Stream.SOCKET_STATE = "Free"
    End Sub
    'Creer un nouveau socket stream si un sock est dispo
    Public Function STREAM_NEW_STREAM()
        For Each Line In Me.STREAM_UNIT
            If (Line.SOCKET_STATE = "Free") Then
                Line.SOCKET_STATE = "Used"
                Line.SOCKET_SOCK = New System.Net.Sockets.TcpClient(Me.STREAM_IP, Me.STREAM_PORT).GetStream
                Return Line
                Exit For
            End If
        Next
        Return False
    End Function
End Class