Binary Typer

Public Class mainform
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 ' This makes it Compatible for 32-Bit and 64-Bit Users
    Private Sub tmrA_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrA.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(65)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100001 ")
            tmrA.Enabled = False
            cdA.Enabled = True
        End If
    End Sub
    Private Sub cdA_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdA.Tick
        tmrA.Enabled = True
        cdA.Enabled = False
    End Sub
    Private Sub tmrB_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrB.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(66)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100010 ")
            tmrB.Enabled = False
            cdB.Enabled = True
        End If
    End Sub
    Private Sub cdB_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdB.Tick
        tmrB.Enabled = True
        cdB.Enabled = False
    End Sub
    Private Sub tmrC_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrC.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(67)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100011 ")
            tmrC.Enabled = False
            cdC.Enabled = True
        End If
    End Sub
    Private Sub cdC_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdC.Tick
        tmrC.Enabled = True
        cdC.Enabled = False
    End Sub
    Private Sub tmrD_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrD.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(68)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100100 ")
            tmrD.Enabled = False
            cdD.Enabled = True
        End If
    End Sub
    Private Sub cdD_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdD.Tick
        tmrD.Enabled = True
        cdD.Enabled = False
    End Sub
    Private Sub tmrE_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrE.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(69)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100101 ")
            tmrE.Enabled = False
            cdE.Enabled = True
        End If
    End Sub
    Private Sub cdE_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdE.Tick
        tmrE.Enabled = True
        cdE.Enabled = False
    End Sub
    Private Sub tmrF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrF.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(70)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100110 ")
            tmrF.Enabled = False
            cdF.Enabled = True
        End If
    End Sub
    Private Sub cdF_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdF.Tick
        tmrF.Enabled = True
        cdF.Enabled = False
    End Sub
    Private Sub tmrG_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrG.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(71)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01100111 ")
            tmrG.Enabled = False
            cdG.Enabled = True
        End If
    End Sub
    Private Sub cdG_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdG.Tick
        tmrG.Enabled = True
        cdG.Enabled = False
    End Sub
    Private Sub tmrH_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrH.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(72)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101000 ")
            tmrH.Enabled = False
            cdH.Enabled = True
        End If
    End Sub
    Private Sub cdH_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdH.Tick
        tmrH.Enabled = True
        cdH.Enabled = False
    End Sub
    Private Sub tmrI_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrI.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(73)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101001 ")
            tmrI.Enabled = False
            cdI.Enabled = True
        End If
    End Sub
    Private Sub cdI_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdI.Tick
        tmrI.Enabled = True
        cdI.Enabled = False
    End Sub
    Private Sub tmrJ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrJ.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(74)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101010 ")
            tmrJ.Enabled = False
            cdJ.Enabled = True
        End If
    End Sub
    Private Sub cdJ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdJ.Tick
        tmrJ.Enabled = True
        cdJ.Enabled = False
    End Sub
    Private Sub tmrK_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrK.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(75)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101011 ")
            tmrK.Enabled = False
            cdK.Enabled = True
        End If
    End Sub
    Private Sub cdK_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdK.Tick
        tmrK.Enabled = True
        cdK.Enabled = False
    End Sub
    Private Sub tmrL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrL.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(76)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101100 ")
            tmrL.Enabled = False
            cdL.Enabled = True
        End If
    End Sub
    Private Sub cdL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdL.Tick
        tmrL.Enabled = True
        cdL.Enabled = False
    End Sub
    Private Sub tmrM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrM.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(77)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101101 ")
            tmrM.Enabled = False
            cdM.Enabled = True
        End If
    End Sub
    Private Sub cdM_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdM.Tick
        tmrM.Enabled = True
        cdM.Enabled = False
    End Sub
    Private Sub tmrN_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrN.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(78)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101110 ")
            tmrN.Enabled = False
            cdN.Enabled = True
        End If
    End Sub
    Private Sub cdN_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdN.Tick
        tmrN.Enabled = True
        cdN.Enabled = False
    End Sub
    Private Sub tmrO_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrO.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(79)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01101111 ")
            tmrO.Enabled = False
            cdO.Enabled = True
        End If
    End Sub
    Private Sub cdO_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdO.Tick
        tmrO.Enabled = True
        cdO.Enabled = False
    End Sub
    Private Sub tmrP_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrP.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(80)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110000 ")
            tmrP.Enabled = False
            cdP.Enabled = True
        End If
    End Sub
    Private Sub cdP_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdP.Tick
        tmrP.Enabled = True
        cdP.Enabled = False
    End Sub
    Private Sub tmrQ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrQ.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(81)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110001 ")
            tmrQ.Enabled = False
            cdQ.Enabled = True
        End If
    End Sub
    Private Sub cdQ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdQ.Tick
        tmrQ.Enabled = True
        cdQ.Enabled = False
    End Sub
    Private Sub tmrR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrR.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(82)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110010 ")
            tmrR.Enabled = False
            cdR.Enabled = True
        End If
    End Sub
    Private Sub cdR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdR.Tick
        tmrR.Enabled = True
        cdR.Enabled = False
    End Sub
    Private Sub tmrS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrS.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(83)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110011 ")
            tmrS.Enabled = False
            cdS.Enabled = True
        End If
    End Sub
    Private Sub cdS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdS.Tick
        tmrS.Enabled = True
        cdS.Enabled = False
    End Sub
    Private Sub tmrT_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrT.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(84)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110100 ")
            tmrT.Enabled = False
            cdT.Enabled = True
        End If
    End Sub
    Private Sub cdT_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdT.Tick
        tmrT.Enabled = True
        cdT.Enabled = False
    End Sub
    Private Sub tmrU_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrU.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(85)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110101 ")
            tmrU.Enabled = False
            cdU.Enabled = True
        End If
    End Sub
    Private Sub cdU_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdU.Tick
        tmrU.Enabled = True
        cdU.Enabled = False
    End Sub
    Private Sub tmrV_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrV.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(86)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110110 ")
            tmrV.Enabled = False
            cdV.Enabled = True
        End If
    End Sub
    Private Sub cdV_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdV.Tick
        tmrV.Enabled = True
        cdV.Enabled = False
    End Sub
    Private Sub tmrW_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrW.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(87)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01110111 ")
            tmrW.Enabled = False
            cdW.Enabled = True
        End If
    End Sub
    Private Sub cdW_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdW.Tick
        tmrW.Enabled = True
        cdW.Enabled = False
    End Sub
    Private Sub tmrX_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrX.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(88)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01111000 ")
            tmrX.Enabled = False
            cdX.Enabled = True
        End If
    End Sub
    Private Sub cdX_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdX.Tick
        tmrX.Enabled = True
        cdX.Enabled = False
    End Sub
    Private Sub tmrY_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrY.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(89)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01111001 ")
            tmrY.Enabled = False
            cdY.Enabled = True
        End If
    End Sub
    Private Sub cdY_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdY.Tick
        tmrY.Enabled = True
        cdY.Enabled = False
    End Sub
    Private Sub tmrZ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrZ.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(90)
        If StartHotkey <> 0 Then
            SendKeys.Send("{Backspace}")
            SendKeys.Send("01111010 ")
            tmrZ.Enabled = False
            cdZ.Enabled = True
        End If
    End Sub
    Private Sub cdZ_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdZ.Tick
        tmrZ.Enabled = True
        cdZ.Enabled = False
    End Sub

    Private Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show("Made by Sean Bobo Egan")
    End Sub
End Class