Dim cookie As HttpCookie = New HttpCookie("UID")
cookie.Value = "myid"
cookie.Expires = #9/20/2008#
Response.Cookies.Add(cookie)
cookie = New HttpCookie("PASS")
cookie.Value = "mypass"
cookie.Expires = #9/20/2008#
Response.Cookies.Add(cookie)

Dim cookieCols As New HttpCookieCollection
cookieCols = Request.Cookies
Dim str As String
For Each str In cookieCols
ListBox1.Items.Add("Cookie: " + str)
ListBox1.Items.Add("Value:" & _
Request.Cookies(str).Value)
Next

Dim cookieCols As New HttpCookieCollection
cookieCols = Request.Cookies
Dim str As String
Request.Cookies.Remove("PASS")
Request.Cookies.Remove("UID")

Dim cookDict As HttpCookie = New HttpCookie("dict")
cookDict.Values("fname") = "first name"
cookDict.Values("lname") = "last name"
cookDict.Values("Address") = "address"
Response.Cookies.Add(cookDict)