Dim ipHostEntry As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostEntry.AddressList(0)

Dim socket0 As Socket = Nothing
Dim socket1 As Socket = Nothing
Dim socket2 As Socket = Nothing
Dim socket3 As Socket = Nothing
Dim socket4 As Socket = Nothing
Dim socket5 As Socket = Nothing

Dim listenList As New ArrayList()
listenList.Add(socket0)
listenList.Add(socket1)
listenList.Add(socket2)

Dim acceptList As New ArrayList()
acceptList.Add(socket3)
acceptList.Add(socket4)
acceptList.Add(socket5)

Dim i As Integer
For i = 0 To 2
   listenList(i) = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
   CType(listenList(i), Socket).Bind(New IPEndPoint(ipAddress, 11000 + i))
   CType(listenList(i), Socket).Listen(10)
Next i

'Only the sockets that contain a connection request
'will remain in listenList after Select returns.
Socket.Select(listenList, Nothing, Nothing, 1000)

For i = 0 To listenList.Count - 1
   acceptList(i) = CType(listenList(i), Socket).Accept()
Next i

IPHostEntry ipHostEntry = Dns.Resolve(Dns.GetHostName());
IPAddress ipAddress = ipHostEntry.AddressList[0];

Socket socket0 = null;
Socket socket1 = null; 
Socket socket2 = null; 
Socket socket3 = null; 
Socket socket4 = null; 
Socket socket5 = null; 

ArrayList listenList = new ArrayList();
listenList.Add(socket0);
listenList.Add(socket1);
listenList.Add(socket2);

ArrayList acceptList = new ArrayList();
acceptList.Add(socket3);
acceptList.Add(socket4);
acceptList.Add(socket5);

for( int i = 0; i < 3; i++ )
{
  listenList[i] = new Socket(AddressFamily.InterNetwork,
                             SocketType.Stream,
                             ProtocolType.Tcp);
  ((Socket)listenList[i]).Bind(new IPEndPoint(ipAddress, 11000 + i));
  ((Socket)listenList[i]).Listen(10);
}

// Only the sockets that contain a connection request
// will remain in listenList after Select returns.

Socket.Select(listenList, null, null, 1000);

for( int i = 0; i < listenList.Count; i++ )
{
  acceptList[i] = ((Socket)listenList[i]).Accept();
}

      IPHostEntry^ lipa = Dns::Resolve( Dns::GetHostName() );

      //Gets three separate local endpoints.
      IPEndPoint^ lep1 = gcnew IPEndPoint( lipa->AddressList[ 0 ],11000 );
      IPEndPoint^ lep2 = gcnew IPEndPoint( lipa->AddressList[ 0 ],11001 );
      IPEndPoint^ lep3 = gcnew IPEndPoint( lipa->AddressList[ 0 ],11002 );

      //creates an array of endpoints.
      array<IPEndPoint^>^ipendpoints = gcnew array<IPEndPoint^>(3);
      ipendpoints[ 0 ] = lep1;
      ipendpoints[ 1 ] = lep2;
      ipendpoints[ 2 ] = lep3;

      //Creates three separate sockets.
      Socket^ s1 = gcnew Socket( lep1->Address->AddressFamily,SocketType::Stream,ProtocolType::Tcp );
      Socket^ s2 = gcnew Socket( lep2->Address->AddressFamily,SocketType::Stream,ProtocolType::Tcp );
      Socket^ s3 = gcnew Socket( lep3->Address->AddressFamily,SocketType::Stream,ProtocolType::Tcp );
      array<Socket^>^socketList = gcnew array<Socket^>(3);
      socketList[ 0 ] = s1;
      socketList[ 1 ] = s2;
      socketList[ 2 ] = s3;

      //Binds and Listens on all sockets in the array of sockets.
      for ( int i = 0; i < 3; i++ )
      {
         socketList[ i ]->Bind( ipendpoints[ i ] );
         socketList[ i ]->Listen( 1000 );

      }

      //Calls Select to determine which sockets are ready for reading.
      Socket::Select( safe_cast<IList^>(socketList), nullptr, nullptr, 1000 );

      //Reads on the sockets returned by Select.
      array<Byte>^buffer = gcnew array<Byte>(1024);
      String^ outString;
      for ( Int32 j = 0; j < (socketList->Length - 1); j++ )
      {
         socketList[ j ]->Receive( buffer );
         outString =  "Socket ";
         outString->Concat( j.ToString(),  " has the message", Encoding::ASCII->GetString( buffer ) );
         Console::WriteLine( outString );

      }
   }

};

int main()
{
   return 0;
}

        IPHostEntry *lipa = Dns::Resolve(Dns::GetHostName());

        //Gets three separate local endpoints.

        IPEndPoint *lep1 = new IPEndPoint(lipa->AddressList[0], 11000);
        IPEndPoint *lep2 = new IPEndPoint(lipa->AddressList[0], 11001);
        IPEndPoint *lep3 = new IPEndPoint(lipa->AddressList[0], 11002);

        //creates an array of endpoints.
        IPEndPoint *ipendpoints[] = new IPEndPoint* [3];

        ipendpoints[0] = lep1;
        ipendpoints[1] = lep2;
        ipendpoints[2] = lep3;


        //Creates three separate sockets.
        Socket *s1 = new Socket(lep1->Address->AddressFamily,
            SocketType::Stream, ProtocolType::Tcp);

        Socket *s2 = new Socket(lep2->Address->AddressFamily,
            SocketType::Stream, ProtocolType::Tcp);

        Socket *s3 = new Socket(lep3->Address->AddressFamily,
            SocketType::Stream, ProtocolType::Tcp);



        Socket *socketList[] = new Socket *[3];
        socketList[0] = s1;
        socketList[1] = s2;
        socketList[2] = s3;

        //Binds and Listens on all sockets in the array of sockets.
        for (int i = 0; i < 3; i++){
            socketList[i]->Bind(ipendpoints[i]);
            socketList[i]->Listen(1000);
        }


        //Calls Select to determine which sockets are ready for reading.
        Socket::Select( __try_cast<IList*>( socketList ), NULL, NULL, 1000);

        //Reads on the sockets returned by Select.
        Byte buffer[] = new Byte[1024];

        String *outString;
        for (Int32 j=0; j < (socketList->Length-1); j++){
            socketList[j]->Receive(buffer);
            outString = "Socket ";
            outString->Concat((__box(j))->ToString(), " has the message", Encoding::ASCII->GetString(buffer));
            Console::WriteLine(outString);
        }