Keskustelu: Koodit: VB.NET: Kirjoituskone

Dim fullstring As String = "Tähän voi sitten lisäillä tätä tekstiä"
    ' Jos käytät vbCrLf eli rivinvaihtoa, muista muuttaa textbox multilineksi
    Dim numberi As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer1.Interval = 50
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        numberi = numberi + 1
        TextBox1.Text = TextBox1.Text + Mid(fullstring, numberi, 1)
        TextBox1.Select(numberi, 0)
        If (numberi = fullstring.Length + 1) Then
            TextBox1.Text = ""
            numberi = 0
        End If
    End Sub