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

        Dim req As HttpWebRequest
        Dim resp As HttpWebResponse
        Dim sw As New Stopwatch
 
        Dim last As Long
        sw.Start()
        For i = 1 To 10
 
            'req = HttpWebRequest.Create("http://www.photobucket.com")
            req = HttpWebRequest.Create("http://www.google.com")
            req.KeepAlive = False
            req.Proxy = Nothing
 
            Try
                resp = req.GetResponse()
                Dim strm As IO.Stream = resp.GetResponseStream()
                'Debug.WriteLine(New IO.StreamReader(strm).ReadToEnd())
                strm.Close()
                resp.Close()
            Catch ex As Exception
                Debug.WriteLine(ex.Message)
            End Try
 
            Console.WriteLine("Request: " & (sw.ElapsedMilliseconds - _
              last).ToString())
            last = sw.ElapsedMilliseconds
        Next
 
        sw.Stop()
        Console.WriteLine("Total: " & sw.ElapsedMilliseconds.ToString())
        Console.ReadKey()

Request: 3625
Request: 1765
Request: 1778
Request: 1628
Request: 1673
Request: 1635
Request: 1619
Request: 1667
Request: 1648
Request: 1691
Total: 18750

Request: 2671
Request: 367
Request: 338
Request: 329
Request: 320
Request: 297
Request: 309
Request: 337
Request: 300
Request: 337
Total: 5622

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist