RE: Pierdo orden de las conexiones

Entiendo que debiera estructurarse mas o menos así
pero al reintegrarse un Pc y realizar la consulta a CadenaPorts este esta siempre en 0...osea no captura el indice en el Socket_Close


Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
Dim i As Long
If index = 0 Then
If CadenaPorts <> 0 Then
intMax = CadenaPorts
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
DoEvents

Else

intMax = intMax + 1
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
DoEvents
End If
End If

End Sub
</TR>

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia