Mostrar conexiones WinSock en un ListBox

[3nr1qu3]

Buenas, como bien dice el asunto de mi post, me gustaría saber el código para que me muestre en un ListBox las conexiones que se establecen x WinSock...

Si necesitais mas información para ayudarme, pedirmela

Gracias,
Un saludo

[soplo]

Pues suponiendo que tengas una colección de Winsocks manteniendo conexiones distintas harás

Código [Seleccionar] Expandir

sub form1_load
for x%=0 to Winsocks.count-1
list1.additem "IP:" & winsock(x%).RemoteHost  & " Puerto: " & Winsock(x%).RemotePort & "\" & iif(Winsock(x%).Protocol=0,"TCP","UDP")
next x%
end sub