Try
 
 
            Dim request As HttpWebRequest =  Net.WebRequest.Create( _
              "http://rapidshare.com/files/115599864/xxxx.rar")
            request.Method = "POST"
            Dim postData As String = "dl.start=Free"
            Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData)
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = byteArray.Length
            request.KeepAlive = True
            request.Headers.Add(Net.HttpRequestHeader.AcceptLanguage, _
              "de-de,de;q=0.8,en-us;q=0.5,en;q=0.3")
            request.Headers.Add(Net.HttpRequestHeader.AcceptEncoding, _
            "gzip,deflate")
            request.Headers.Add(Net.HttpRequestHeader.AcceptCharset, _
            "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
            request.Headers.Add(Net.HttpRequestHeader.KeepAlive, "300")
            Dim dataStream As Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            Dim response As WebResponse = request.GetResponse()
            Form1.TextBox1.Text = (CType(response, _
              HttpWebResponse).StatusDescription)
            dataStream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            Form1.TextBox2.Text = (responseFromServer)
            reader.Close()
            dataStream.Close()
            response.Close()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try