' Accepts the pending client connection and returns a socket for communciation.
Dim socket As Socket = tcpListener.AcceptSocket()
Console.WriteLine("Connection accepted.")

Dim responseString As String = "You have successfully connected to me"

'Forms and sends a response string to the connected client.
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
Dim i As Integer = socket.Send(sendBytes)
Console.WriteLine(("Message Sent /> : " + responseString))

           
// Accepts the pending client connection and returns a socket for communciation.
 Socket socket = tcpListener.AcceptSocket();
   Console.WriteLine("Connection accepted.");

 string responseString = "You have successfully connected to me";

 //Forms and sends a response string to the connected client.
 Byte[] sendBytes = Encoding.ASCII.GetBytes(responseString);
 int i = socket.Send(sendBytes);
 Console.WriteLine("Message Sent /> : " + responseString);

// Accepts the pending client connection and returns a socket for communciation.
Socket^ socket = tcpListener->AcceptSocket();
Console::WriteLine( "Connection accepted." );

String^ responseString = "You have successfully connected to me";

//Forms and sends a response string to the connected client.
array<Byte>^sendBytes = Encoding::ASCII->GetBytes( responseString );
int i = socket->Send( sendBytes );
Console::WriteLine( "Message Sent /> : {0}", responseString );

// Accepts the pending client connection and returns a 
// socket for communciation.
Socket socket = tcpListener.AcceptSocket();
Console.WriteLine("Connection accepted.");
String responseString = 
    "You have successfully connected to me";

// Forms and sends a response string to the connected 
// client.
ubyte sendBytes[] = Encoding.get_ASCII().GetBytes(
                        responseString);
int i = socket.Send(sendBytes);
Console.WriteLine(("Message Sent /> : "
    + responseString));