' This example requires the System and System.Net namespaces.
Public Shared Sub DisplayCookies(ByVal request As HttpListenerRequest)
    ' Print the properties of each cookie.
    For Each cook As Cookie In request.Cookies
        Console.WriteLine("Cookie:")
        Console.WriteLine("{0} = {1}", cook.Name, cook.Value)
        Console.WriteLine("Domain: {0}", cook.Domain)
        Console.WriteLine("Path: {0}", cook.Path)
        Console.WriteLine("Port: {0}", cook.Port)
        Console.WriteLine("Secure: {0}", cook.Secure)

        Console.WriteLine("When issued: {0}", cook.TimeStamp)
        Console.WriteLine("Expires: {0} (expired? {1})", cook.Expires, cook.Expired)
        Console.WriteLine("Don't save: {0}", cook.Discard)
        Console.WriteLine("Comment: {0}", cook.Comment)
        Console.WriteLine("Uri for comments: {0}", cook.CommentUri)
        Console.WriteLine("Version: RFC {0}", If(cook.Version = 1, "2109", "2965"))

        ' Show the string representation of the cookie.
        Console.WriteLine("String: {0}", cook.ToString())
    Next
End Sub