Private Sub btnSaveCookie_Click(...) _
					Handles btnSaveCookie.Click
        Dim objCookie As New HttpCookie("UserName")
        objCookie.Value = TextBox1.Text
        Dim dtCookieExpire As DateTime = _
					Now.Today.AddDays(2)
        objCookie.Expires = dtCookieExpire
        Response.Cookies.Add(objCookie)
    End Sub

    Private Sub btnRecallCookie_Click (...) _
					Handles btnRecallCookie.Click
        Dim colCookies As HttpCookieCollection
        colCookies = Request.Cookies
        Dim objCookie As HttpCookie
        objCookie = colCookies("UserName")
        lblCookie.Text = objCookie.Value
    End Sub