[ola]

كود :

Public Class Form1
    Dim splitStr As String()
    Dim p As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        TextBox2.Text = splitStr(p).ToString()
        p = p + 1
        If p = splitStr.Length Then p = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim str As String = TextBox1.Text
        splitStr = str.Split("#"c)
        p = 0
        Timer1.Start()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 60000
        TextBox1.Text = "احمد#يوسف#حسن#فارس#مصطفى#ابراهيم#حسين#خالد#علي#وليد#رياض#قاسم"
    End Sub
End Class