Ajuda - Auto Digitador

[Matheus Montinnê]

Olá pessoa eu estou tentando fazer um programa que envie mensagens definidas na textbox a cada 5 segundo. (Um auto digitador)

porém eu só consigo fazer com que ele digite a mensagem escrita na TextBox1 e não digita a mensagem da TextBox2.

Eu queria fazer com que após digitar o texto da TextBox1, ele aguardasse 5 segundo e digitasse o codigo da TextBox2.

Outra coisa também é que ele está só colando o texto, eu queria fazer com que simulasse uma digitação real.

Sou novato, passei o dia tentando e não consegui. se alguém pode me ajudar segue o codigo abaixo:

 

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Timer2.Interval = True Then

            Timer1.Stop()
        End If
        Select Case TextBox1.Text()
            Case TextBox1.Text
                SendKeys.Send(TextBox1.Text + "{Enter}")
        End Select
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 5000 'cinco segundos de intervalo
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Timer1.Interval = True Then

            Timer2.Stop()
        End If

    End Sub
End Class

 

[Graymalkin]

Não sei se entendi muito bem o que você quer não, mas se fosse para escrever na TextBox2 o quê estiver escrito na TextBox1, parecendo que está sendo digitado, eu faria o seguinte:

TextBox2.Focus()

For Each c As Char In TextBox1.Text
    SendKeys.Send(c)
    Threading.Thread.Sleep(200)
    Application.DoEvents()
Next

Espero ter ajudado!