投稿者 ねぼすけ  (社会人) 投稿日時 2016/12/23 13:22:11
カキカキで良ければ
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