For Each ServerSocket (gb.net)

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

Enumerate all the socket created by the Accept method.