Public Class Form1 Private TickCount As Integer = 0 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Interval = 100 Timer1.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick TickCount += 1 Dim tx1 As String = TextBox1.Text Dim tx2 As String = Mid(tx1, TickCount) If tx2 = "" Then Timer1.Stop() End If TextBox2.Text = tx2 End Sub End Class