Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim cookie As HttpCookie = New HttpCookie("UID")
  cookie.Value = "myid"
  cookie.Expires = #10/12/2005#
  Response.Cookies.Add(cookie)
  cookie = New HttpCookie("PASS")
  cookie.Value = "mypass"
  cookie.Expires = #10/12/2005#
  Response.Cookies.Add(cookie)
End Sub