[معاند الحظ]

اخوي مدري اذا فهمت طلبك لكن هذي محاولة مني اذا كانت هي المطلوبه الحمدلله 

واذا كانت لا حاول توضح اكثر عشان يقدر يساعدك اي  واحد

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim MoodysWebAddress As Uri = New Uri("https://arembed.com/live.php?ch=Bein_Sports2")
       Dim request As HttpWebRequest = TryCast(WebRequest.Create(MoodysWebAddress), HttpWebRequest)

       request.Method = "GET"
       request.ContentType = "text/xml"
       Dim results = String.Empty
       Dim response As HttpWebResponse = TryCast(request.GetResponse, HttpWebResponse)


       Dim reader = New StreamReader(response.GetResponseStream)
       results = reader.ReadToEnd

       If reader.EndOfStream Then
           rtxt.Text = results
       End If

   End Sub