Me.RichTextBox1.Text = Me.send_data("http://10.2.2.1/php/page.php", "hl=de")
 
 
   Function send_data(ByVal url As String, ByVal postdata As String) As String
        Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes(postdata)
 
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), _
          HttpWebRequest)
        req.Method = "post"
        req.ContentType = "application/x-www-form-urlencoded"
        req.ContentLength = data.Length
        req.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de;" & _
          "rv:1.8.1.7) Gecko/20070914 Firefox/2.0.0.7"
 
        Dim dataStream As Stream = req.GetRequestStream()
        dataStream.Write(data, 0, data.Length)
 
        Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim str As New StreamReader(res.GetResponseStream)
 
        Return str.ReadToEnd()
    End Function