[ismail2012]

الأمر بسيط إن شاء الله
اضيفي تكست بوكس جديد وغير msgbox الى TextBox2.Text ليصبح الكود الجديد كالتالي

كود :

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 = 5000
        s = TextBox1.Text.Split(".")
        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))
        If Counter >= s.Length - 1 Then Timer1.Enabled = False
        Counter += 1

    End Sub
End Class

وأي أستفسار آخر لا تترددي