' Create a 'WebRequest' object with the specified url 	
            Dim myWebRequest As WebRequest = WebRequest.Create("www.contoso.com")

            ' Send the 'WebRequest' and wait for response.
            Dim myWebResponse As WebResponse = myWebRequest.GetResponse()

            ' Display all the Headers present in the response received from the URl.
            Console.WriteLine(ControlChars.Cr + "The following headers were received in the response")

            ' Headers property is a 'WebHeaderCollection'. Use it's properties to traverse the collection and display each header
            Dim i As Integer

            While i < myWebResponse.Headers.Count
                Console.WriteLine(ControlChars.Cr + "Header Name:{0}, Header value :{1}", myWebResponse.Headers.Keys(i), myWebResponse.Headers(i))
		i = i + 1
            End While

            ' Release resources of response object.
            myWebResponse.Close()
            

          // Create a 'WebRequest' object with the specified url. 	
         WebRequest myWebRequest = WebRequest.Create("http://www.contoso.com"); 

         // Send the 'WebRequest' and wait for response.
	  WebResponse myWebResponse = myWebRequest.GetResponse(); 

         // Display all the Headers present in the response received from the URl.
         Console.WriteLine("\nThe following headers were received in the response");

	  // Display each header and it's key , associated with the response object.
         for(int i=0; i < myWebResponse.Headers.Count; ++i)  
		    Console.WriteLine("\nHeader Name:{0}, Header value :{1}",myWebResponse.Headers.Keys[i],myWebResponse.Headers[i]); 

         // Release resources of response object.
         myWebResponse.Close(); 
         

      // Create a 'WebRequest' object with the specified url.
      WebRequest^ myWebRequest = WebRequest::Create( "http://www.contoso.com" );

      // Send the 'WebRequest' and wait for response.
      WebResponse^ myWebResponse = myWebRequest->GetResponse();

      // Display all the Headers present in the response received from the URl.
      Console::WriteLine( "\nThe following headers were received in the response" );

      // Display each header and its key , associated with the response object.
      for ( int i = 0; i < myWebResponse->Headers->Count; ++i )
         Console::WriteLine( "\nHeader Name: {0}, Header value : {1}", myWebResponse->Headers->Keys[ i ], myWebResponse->Headers[ i ] );

      // Release resources of response object.
      myWebResponse->Close();