Public Sub DisplayCookies()

        'Create a WebRequest to the specified URI.		
        Dim req As HttpWebRequest = CType(WebRequest.Create("http://werweb.com/whoison.php"), HttpWebRequest)

        'Get an empty cookie container.		
        req.CookieContainer = New CookieContainer

        'Send the request and return the response.		
        Dim resp As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)

        'Display the cookies.		
        Dim alertStr As String
        alertStr = "Number of Cookies: " & resp.Cookies.Count.ToString() & Environment.NewLine()
        alertStr = alertStr & "------------------------------" & Environment.NewLine()

        Dim i As Integer
        For i = 0 To resp.Cookies.Count - 1
            alertStr = alertStr & resp.Cookies(i).Name & "=" & resp.Cookies(i).Value & Environment.NewLine()
        Next
        MessageBox.Show(alertStr)

        'Close the Response.		
        resp.Close()
    End Sub