For Each ServerSocket (gb.net)

Dim hServerSocket As ServerSocket
Dim hSocket As Socket
For Each hSocket In hServerSocket
  ...
Next

Enumère tous les sockets créés par la Méthode Accept.