[سعود]

مثل ماقال الاخ الكريم 
silverlight 



حبيت اكتب الكود حسب المطلوب

PHP كود :

Public Class Form1
    Dim all As String = My.Computer.FileSystem.ReadAllText("urls.txt")
    Dim b() As String = Nothing
    Dim cur As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        b = all.Split(vbNewLine)
        url.Text = b(cur)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        url.Text = b(0)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If cur = b.Length - 1 Then Exit Sub
        cur += 1
        url.Text = b(cur)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If cur <= 0 Then Exit Sub

        cur -= 1
        url.Text = b(cur)

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        cur = b.Length - 1
        url.Text = b(cur)
    End Sub
End Class