السلام عليكم ورحمة الله

لدي رابط قمت بتقسيمة الى 3 اقسام

وعندما اقوم بجمعة داخل حلقة يظهر لي خطأ

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As String = "http://server9.mp3quran.net/maher/00" Dim b As Integer = 1 Dim c As String = ".mp3" For b = 1 To 604 wmp.URL = a + b + ".mp3" Next

End Sub

اين المشكلة