HELP: Implementing cookies with WebRequest and WebResponse

[Tony Archer]

Here's my problem...

When I use this code to hit the site in question I'm redirected to another
SSL login page. If processed successfully the page creates a cookie and
then redirects you to the original request.

However, my code cannot seem to hold onto the cookie it creates. Does
anyone know how to do this?
Everything works (SSL included) *except* for the cookies. trying to figure
that one out still.

Here is the code:
Imports System
Imports System.IO
Imports System.Net
Imports System.Threadin g
Imports System.Text.Reg ularExpressions
Imports System.Text.Enc oding
Imports System.Security .Cryptography.X 509Certificates

Public Class TrustAllCertifi catePolicy
Implements System.Net.ICer tificatePolicy
Public Function CheckValidation Result(ByVal srvPoint As
System.Net.Serv icePoint, ByVal certificate As
System.Security .Cryptography.X 509Certificates .X509Certificat e, ByVal request
As System.Net.WebR equest, ByVal certificateProb lem As Integer) _
As Boolean Implements
System.Net.ICer tificatePolicy. CheckValidation Result
Return True
End Function
End Class
Private Sub cmdGet_Click(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles cmdGet.Click
'Create(a) 'WebRequest' object with the specified url
System.Net.Serv icePointManager .CertificatePol icy = New
TrustAllCertifi catePolicy

Dim myWebRequest As WebRequest
'myWebRequest.C redentials = myCert.TrustAll CertificatePoli cy
myWebRequest =
WebRequest.Crea te("https://sentri.us.norte l.com:8443/SENTRI/home.jsp")

' Send the 'WebRequest' and wait for response.
Dim myWebResponse As WebResponse
myWebResponse = myWebRequest.Ge tResponse()
' Call method 'GetResponseStr eam' to obtain stream associated with
the response object
Dim ReceiveStream As Stream
ReceiveStream = myWebResponse.G etResponseStrea m()

Dim encode As System.Text.Enc oding
encode = GetEncoding("ut f-8")

' Pipe the stream to a higher level stream reader with the required
encoding format.
Dim readStream As New StreamReader(Re ceiveStream, encode)
'txtLog.Text = (ControlChars.C rLf + "Response stream received")
Dim read(1024) As [Char]

' Read 256 charcters at a time .
Dim count As Integer = readStream.Read (read, 0, 1024)
txtLog.Text = ""
'While count > 0
While readStream.Peek >= 0

' Dump the 256 characters on a string and display the string
onto the console.
Dim str As New [String](read, 0, count)
txtLog.Text = txtLog.Text & (str)
count = readStream.Read (read, 0, 1024)

End While
Dim str2 As New [String](read, 0, count)
txtLog.Text = txtLog.Text & (str2)
count = readStream.Read (read, 0, 1024)
'Console.WriteL ine("")

' Release the resources of stream object.
readStream.Clos e()

' Release the resources of response object.
myWebResponse.C lose()

End Sub