Public Function GetHTMLPage(ByVal URL As String) As String
        Dim sResult As String
        Dim oHttp As HttpWebRequest
        Dim objResponse As WebResponse
        Dim objRequest As WebRequest
 
            objRequest = System.Net.HttpWebRequest.Create(URL)
 
            objRequest.Method = "GET"
 
            objRequest.Timeout = 120000 ' 20 sekunden = 120000        
 
 
            objResponse = objRequest.GetResponse
 
            ProgressBarinPercent(URL, pbrPercent)
 
            Dim sr As System.IO.StreamReader = New System.IO.StreamReader( _
              objResponse.GetResponseStream(), System.Text.Encoding.UTF7)
            sResult = sr.ReadToEnd()
            sr.Close()
            objResponse.Close()
 
            Return sResult
    End Function

objRequest.Headers.Set("Referer", "http://www.google.de")

objRequest.Headers.Set("TestValue", "http://www.google.de")