' 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();

// Create a 'WebRequest' object with the specified url.
WebRequest* myWebRequest = WebRequest::Create(S"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(S"\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(S"\nHeader Name: {0}, Header value : {1}",
   myWebResponse->Headers->Keys->Item[i], myWebResponse->Headers->Item[i]);

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