Basic Auto Typer

Imports System.Text
Public Class Form1
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Dim result As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.F11) Then
            Timer3.Enabled = True
        End If
        If GetAsyncKeyState(Keys.F6) Then
            Timer2.Enabled = True
            TextBox1.Text = ""
        End If
        If GetAsyncKeyState(Keys.F7) Then
            Timer2.Enabled = False
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub

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

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Visible = True
        Else
            TextBox1.Visible = False
        End If
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim min = Convert.ToInt32("a"c)
        'Change a to A for Caps
        Dim max = Convert.ToInt32("z"c) + 1
        'Change z to Z for Caps
        Dim rng As New Random
        Dim RndText As New StringBuilder(3)
        For count = 1 To 3
            RndText.Append(Convert.ToChar(rng.Next(min, max)))
        Next
        SendKeys.Send("{enter}")
        SendKeys.Send(TextBox1.Text + " =" & RndText.ToString + "=")
        SendKeys.Send("{enter}")
        Timer3.Enabled = False
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class 'code by Paul