Sub Main()
 
        Dim req As HttpWebRequest
        Dim resp As HttpWebResponse
 
        req = HttpWebRequest.Create("http://www.photobucket.com")
        req.Proxy = Nothing
 
        Try
 
            Dim zeitA As Date = System.DateTime.Now
            resp = req.GetResponse()
            Console.WriteLine(CInt(System.DateTime.Now.Subtract( _
              zeitA).TotalMilliseconds))
 
        Catch ex As Exception
 
        End Try
 
        Console.ReadKey()
 
 
 
    End Sub