[ismail2012]

السلام عليكم
كيف حالك ام لارا
أأسف على الـتأخيير في الرد
هذا الكود الجديد مع طلباتك الجديدة
ماعدا الطلب الأخير لأني لم أفهمة جيدا أرجوا توضيحة
الكود

كود :

Public Class Form1
    Dim s() As String
    Dim Counter As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 2000
        s = TextBox1.Text.Split(New Char() {"."c, ","c, ";"c})
        Timer1.Enabled = True
        Counter = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        TextBox2.Text = (s(Counter))
        Counter += 1
        If Counter >= s.Length Then Counter = 0


    End Sub
End Class