Text okutup satır satır gösterme

HAZIR KODLARI İNDİR

Public Class Form1 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static x As Integer TextBox1.Text = RichTextBox1.Lines(x) x += 1 If x = RichTextBox1.Lines.Count Then x = 0 : Timer1.Stop() End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Timer1.Interval = NumericUpDown1.Value Timer1.Start() End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Timer1.Stop() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Timer1.Interval = NumericUpDown1.Value End Sub Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDown1.ValueChanged Timer1.Interval = NumericUpDown1.Value End Sub End Class