عمل برنامج تشغيل ملفات صوتية - نسخة قابلة للطباعة

كود :
Try



            For l As Integer = 0 To 10



                ProgressBar1.PerformStep()



                ProgressBar1.Visible = True



                Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://coding.dr-ho.org/Example.txt") ' طلب عنوان الملف النصي

                Dim respnos As System.Net.HttpWebResponse = regust.GetResponse ' عرفنا استجابه الملف النصي 

                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream) ' عرفنا قرائة الملف النصي

                Dim song As String = sr.ReadToEnd ' امر القرائه

                TextBox1.Text = song ' عنوان الملف الصوتي





            Next



        Catch ex As Exception

            MsgBox("لم يتم العثور على الملف المطلوب")

        End Try

        



         





    End Sub