Erro Estranho

[Lucas Phillip]

Olá,

gente, já quebrei minha cabeça aqui, mas pedi arrego.. não estou conseguindo entender porque meu código não está querendo funcionar..

bom, é um servidor de um chat, e o problema está na hora de fazer o login. O script está ai

                AchouLivre = False

'procura por conexões fechadas
                If (iUsers <> 0) Then

                    For x = 1 To iUsers - 1

                        If (Connection(x).Connected = False) Then

                            AchouLivre = True
                            SocketLivre = CShort(x)
                            Exit For

                        End If

                    Next

                End If
'caso não ache, cria uma nova
                If (AchouLivre = False) Then

                    iUsers = CShort(iUsers + 1)
                    SocketLivre = iUsers

                End If
'conecta "conexão" especificada
                Connection(SocketLivre) = Listener.AcceptSocket()

                socketStream(SocketLivre) = New NetworkStream(Connection(SocketLivre))

                ConThread(SocketLivre) = New Thread(AddressOf PlayersIO)
                ConThread(SocketLivre).Start(SocketLivre)

bom, o que está acontecendo é que quando não acha uma coneção livre e vai cria uma nova, o script não funciona.. mas se eu tiro o pedaço que procura por conexões fechadas, ai funciona perfeitamente..

o que está errado???

vlw

[Graymalkin]

Mas, dá algum erro?

Graymalkin