Visual Basic

Dim listener As New TcpListener(System.Net.IPAddress.Any, 7778)

'start it
listener.Start()

Dim bytes(1024) As Byte
Dim Command As String = Nothing

While True

    Console.WriteLine("Waiting for a connection... ")
    Dim client As TcpClient = listner.AcceptTcpClient()
    Console.WriteLine("Client connected... ")
    Console.WriteLine("Please Wait... ")

    Dim ns As NetworkStream = client.GetStream()

    Command = Nothing

    Dim i As Integer

    i = ns.Read(bytes, 0, bytes.Length)
    While (i <> 0)


        Command = System.Text.Encoding.ASCII.GetString(bytes, 0, i)

        Console.WriteLine(Command)

        i = ns.Read(bytes, 0, bytes.Length) 'stopper

    End While

    ns.Close()
    client.Close()

    Console.WriteLine("...")

End While