Dim req As HttpWebRequest
Dim resp As HttpWebResponse
req = WebRequest.Create(uri)
 
Dim cookiecontainer As New CookieContainer()
req.CookieContainer = cookiecontainer
 
resp = req.GetResponse()
Dim sr As New StreamReader(resp.GetResponseStream())
 
Dim response As New HTTPResponse
response.Body = sr.ReadToEnd()
 
Dim cookies As New CookieCollection
 
For i As Integer = 0 To resp.Cookies.Count - 1
    cookies.Add(resp.Cookies(i))
Next