Mega Code Archive

 

Categories / VB.Net / Event

 

Display key event in Fake Keyboard

Imports System.Windows.Forms Imports System.Drawing Public Class MainClass     Public Shared Sub Main()       Application.Run(New FrmTypingApplication)     End Sub End Class Public Class FrmTypingApplication    Inherits System.Windows.Forms.Form    ' reference to last Button pressed    Private m_btnLastButton As Button #Region " Windows Form Designer generated code "    Public Sub New()       MyBase.New()       'This call is required by the Windows Form Designer.       InitializeComponent()       'Add any initialization after the InitializeComponent() call    End Sub    'Form overrides dispose to clean up the component list.    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)       If disposing Then          If Not (components Is Nothing) Then             components.Dispose()          End If       End If       MyBase.Dispose(disposing)    End Sub    'Required by the Windows Form Designer    Private components As System.ComponentModel.IContainer    'NOTE: The following procedure is required by the Windows Form Designer    'It can be modified using the Windows Form Designer.      'Do not modify it using the code editor.    Friend WithEvents lblPrompt As System.Windows.Forms.Label    Friend WithEvents txtOutput As System.Windows.Forms.TextBox    Friend WithEvents btnF1 As System.Windows.Forms.Button    Friend WithEvents btnF2 As System.Windows.Forms.Button    Friend WithEvents btnF3 As System.Windows.Forms.Button    Friend WithEvents btnF4 As System.Windows.Forms.Button    Friend WithEvents btnF5 As System.Windows.Forms.Button    Friend WithEvents btnF6 As System.Windows.Forms.Button    Friend WithEvents btnF7 As System.Windows.Forms.Button    Friend WithEvents btnF8 As System.Windows.Forms.Button    Friend WithEvents btnF9 As System.Windows.Forms.Button    Friend WithEvents btnF10 As System.Windows.Forms.Button    Friend WithEvents btnF11 As System.Windows.Forms.Button    Friend WithEvents btnF12 As System.Windows.Forms.Button    Friend WithEvents btn0 As System.Windows.Forms.Button    Friend WithEvents btn1 As System.Windows.Forms.Button    Friend WithEvents btn2 As System.Windows.Forms.Button    Friend WithEvents btn3 As System.Windows.Forms.Button    Friend WithEvents btn4 As System.Windows.Forms.Button    Friend WithEvents btn5 As System.Windows.Forms.Button    Friend WithEvents btn6 As System.Windows.Forms.Button    Friend WithEvents btn7 As System.Windows.Forms.Button    Friend WithEvents btn8 As System.Windows.Forms.Button    Friend WithEvents btn9 As System.Windows.Forms.Button    Friend WithEvents btnHyphen As System.Windows.Forms.Button    Friend WithEvents btnPlus As System.Windows.Forms.Button    Friend WithEvents btnTilde As System.Windows.Forms.Button    Friend WithEvents btnTab As System.Windows.Forms.Button    Friend WithEvents btnCaps As System.Windows.Forms.Button    Friend WithEvents btnShiftLeft As System.Windows.Forms.Button    Friend WithEvents btnCtrlLeft As System.Windows.Forms.Button    Friend WithEvents btnFn As System.Windows.Forms.Button    Friend WithEvents btnAltLeft As System.Windows.Forms.Button    Friend WithEvents btnSpace As System.Windows.Forms.Button    Friend WithEvents btnBackspace As System.Windows.Forms.Button    Friend WithEvents btnSlash As System.Windows.Forms.Button    Friend WithEvents btnEnter As System.Windows.Forms.Button    Friend WithEvents btnUp As System.Windows.Forms.Button    Friend WithEvents btnLeft As System.Windows.Forms.Button    Friend WithEvents btnDown As System.Windows.Forms.Button    Friend WithEvents btnRight As System.Windows.Forms.Button    Friend WithEvents btnLeftBrace As System.Windows.Forms.Button    Friend WithEvents btnRightBrace As System.Windows.Forms.Button    Friend WithEvents btnColon As System.Windows.Forms.Button    Friend WithEvents btnQuote As System.Windows.Forms.Button    Friend WithEvents btnComma As System.Windows.Forms.Button    Friend WithEvents btnPeriod As System.Windows.Forms.Button    Friend WithEvents btnQuestion As System.Windows.Forms.Button    Friend WithEvents btnA As System.Windows.Forms.Button    Friend WithEvents btnB As System.Windows.Forms.Button    Friend WithEvents btnC As System.Windows.Forms.Button    Friend WithEvents btnD As System.Windows.Forms.Button    Friend WithEvents btnE As System.Windows.Forms.Button    Friend WithEvents btnF As System.Windows.Forms.Button    Friend WithEvents btnG As System.Windows.Forms.Button    Friend WithEvents btnH As System.Windows.Forms.Button    Friend WithEvents btnI As System.Windows.Forms.Button    Friend WithEvents btnJ As System.Windows.Forms.Button    Friend WithEvents btnK As System.Windows.Forms.Button    Friend WithEvents btnL As System.Windows.Forms.Button    Friend WithEvents btnN As System.Windows.Forms.Button    Friend WithEvents btnO As System.Windows.Forms.Button    Friend WithEvents btnP As System.Windows.Forms.Button    Friend WithEvents btnQ As System.Windows.Forms.Button    Friend WithEvents btnR As System.Windows.Forms.Button    Friend WithEvents btnS As System.Windows.Forms.Button    Friend WithEvents btnT As System.Windows.Forms.Button    Friend WithEvents btnU As System.Windows.Forms.Button    Friend WithEvents btnV As System.Windows.Forms.Button    Friend WithEvents btnW As System.Windows.Forms.Button    Friend WithEvents btnM As System.Windows.Forms.Button    Friend WithEvents btnX As System.Windows.Forms.Button    Friend WithEvents btnY As System.Windows.Forms.Button    Friend WithEvents btnZ As System.Windows.Forms.Button    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()       Me.lblPrompt = New System.Windows.Forms.Label       Me.txtOutput = New System.Windows.Forms.TextBox       Me.btnF1 = New System.Windows.Forms.Button       Me.btnF2 = New System.Windows.Forms.Button       Me.btnF3 = New System.Windows.Forms.Button       Me.btnF4 = New System.Windows.Forms.Button       Me.btnF5 = New System.Windows.Forms.Button       Me.btnF6 = New System.Windows.Forms.Button       Me.btnF7 = New System.Windows.Forms.Button       Me.btnF8 = New System.Windows.Forms.Button       Me.btnF9 = New System.Windows.Forms.Button       Me.btnF10 = New System.Windows.Forms.Button       Me.btnF11 = New System.Windows.Forms.Button       Me.btnF12 = New System.Windows.Forms.Button       Me.btn1 = New System.Windows.Forms.Button       Me.btn2 = New System.Windows.Forms.Button       Me.btn3 = New System.Windows.Forms.Button       Me.btn4 = New System.Windows.Forms.Button       Me.btn5 = New System.Windows.Forms.Button       Me.btn6 = New System.Windows.Forms.Button       Me.btn7 = New System.Windows.Forms.Button       Me.btn8 = New System.Windows.Forms.Button       Me.btn9 = New System.Windows.Forms.Button       Me.btn0 = New System.Windows.Forms.Button       Me.btnHyphen = New System.Windows.Forms.Button       Me.btnPlus = New System.Windows.Forms.Button       Me.btnTilde = New System.Windows.Forms.Button       Me.btnTab = New System.Windows.Forms.Button       Me.btnCtrlLeft = New System.Windows.Forms.Button       Me.btnFn = New System.Windows.Forms.Button       Me.btnAltLeft = New System.Windows.Forms.Button       Me.btnEnter = New System.Windows.Forms.Button       Me.btnSlash = New System.Windows.Forms.Button       Me.btnBackspace = New System.Windows.Forms.Button       Me.btnSpace = New System.Windows.Forms.Button       Me.btnCaps = New System.Windows.Forms.Button       Me.btnShiftLeft = New System.Windows.Forms.Button       Me.btnUp = New System.Windows.Forms.Button       Me.btnLeft = New System.Windows.Forms.Button       Me.btnDown = New System.Windows.Forms.Button       Me.btnRight = New System.Windows.Forms.Button       Me.btnLeftBrace = New System.Windows.Forms.Button       Me.btnRightBrace = New System.Windows.Forms.Button       Me.btnColon = New System.Windows.Forms.Button       Me.btnQuote = New System.Windows.Forms.Button       Me.btnComma = New System.Windows.Forms.Button       Me.btnPeriod = New System.Windows.Forms.Button       Me.btnQuestion = New System.Windows.Forms.Button       Me.btnC = New System.Windows.Forms.Button       Me.btnB = New System.Windows.Forms.Button       Me.btnA = New System.Windows.Forms.Button       Me.btnG = New System.Windows.Forms.Button       Me.btnF = New System.Windows.Forms.Button       Me.btnE = New System.Windows.Forms.Button       Me.btnD = New System.Windows.Forms.Button       Me.btnK = New System.Windows.Forms.Button       Me.btnJ = New System.Windows.Forms.Button       Me.btnI = New System.Windows.Forms.Button       Me.btnH = New System.Windows.Forms.Button       Me.btnO = New System.Windows.Forms.Button       Me.btnN = New System.Windows.Forms.Button       Me.btnM = New System.Windows.Forms.Button       Me.btnL = New System.Windows.Forms.Button       Me.btnT = New System.Windows.Forms.Button       Me.btnS = New System.Windows.Forms.Button       Me.btnR = New System.Windows.Forms.Button       Me.btnQ = New System.Windows.Forms.Button       Me.btnP = New System.Windows.Forms.Button       Me.btnY = New System.Windows.Forms.Button       Me.btnX = New System.Windows.Forms.Button       Me.btnW = New System.Windows.Forms.Button       Me.btnV = New System.Windows.Forms.Button       Me.btnU = New System.Windows.Forms.Button       Me.btnZ = New System.Windows.Forms.Button       Me.SuspendLayout()       '       'lblPrompt       '       Me.lblPrompt.Location = New System.Drawing.Point(32, 8)       Me.lblPrompt.Name = "lblPrompt"       Me.lblPrompt.Size = New System.Drawing.Size(408, 40)       Me.lblPrompt.TabIndex = 64       Me.lblPrompt.Text = "Type some text using your keyboard."       '       'txtOutput       '       Me.txtOutput.AcceptsTab = True       Me.txtOutput.BackColor = System.Drawing.Color.White       Me.txtOutput.Font = New System.Drawing.Font("Tahoma", 10.2!)       Me.txtOutput.Location = New System.Drawing.Point(32, 64)       Me.txtOutput.Multiline = True       Me.txtOutput.Name = "txtOutput"       Me.txtOutput.ReadOnly = True       Me.txtOutput.Size = New System.Drawing.Size(408, 136)       Me.txtOutput.TabIndex = 0       Me.txtOutput.Text = ""       '       'btnF1       '       Me.btnF1.Location = New System.Drawing.Point(48, 216)       Me.btnF1.Name = "btnF1"       Me.btnF1.Size = New System.Drawing.Size(32, 23)       Me.btnF1.TabIndex = 74       Me.btnF1.Text = "F1"       '       'btnF2       '       Me.btnF2.Location = New System.Drawing.Point(80, 216)       Me.btnF2.Name = "btnF2"       Me.btnF2.Size = New System.Drawing.Size(32, 23)       Me.btnF2.TabIndex = 72       Me.btnF2.Text = "F2"       '       'btnF3       '       Me.btnF3.Location = New System.Drawing.Point(112, 216)       Me.btnF3.Name = "btnF3"       Me.btnF3.Size = New System.Drawing.Size(32, 23)       Me.btnF3.TabIndex = 67       Me.btnF3.Text = "F3"       '       'btnF4       '       Me.btnF4.Location = New System.Drawing.Point(144, 216)       Me.btnF4.Name = "btnF4"       Me.btnF4.Size = New System.Drawing.Size(32, 23)       Me.btnF4.TabIndex = 68       Me.btnF4.Text = "F4"       '       'btnF5       '       Me.btnF5.Location = New System.Drawing.Point(176, 216)       Me.btnF5.Name = "btnF5"       Me.btnF5.Size = New System.Drawing.Size(32, 23)       Me.btnF5.TabIndex = 69       Me.btnF5.Text = "F5"       '       'btnF6       '       Me.btnF6.Location = New System.Drawing.Point(208, 216)       Me.btnF6.Name = "btnF6"       Me.btnF6.Size = New System.Drawing.Size(32, 23)       Me.btnF6.TabIndex = 70       Me.btnF6.Text = "F6"       '       'btnF7       '       Me.btnF7.Location = New System.Drawing.Point(240, 216)       Me.btnF7.Name = "btnF7"       Me.btnF7.Size = New System.Drawing.Size(32, 23)       Me.btnF7.TabIndex = 71       Me.btnF7.Text = "F7"       '       'btnF8       '       Me.btnF8.Location = New System.Drawing.Point(272, 216)       Me.btnF8.Name = "btnF8"       Me.btnF8.Size = New System.Drawing.Size(32, 23)       Me.btnF8.TabIndex = 72       Me.btnF8.Text = "F8"       '       'btnF9       '       Me.btnF9.Location = New System.Drawing.Point(304, 216)       Me.btnF9.Name = "btnF9"       Me.btnF9.Size = New System.Drawing.Size(32, 23)       Me.btnF9.TabIndex = 73       Me.btnF9.Text = "F9"       '       'btnF10       '       Me.btnF10.Location = New System.Drawing.Point(336, 216)       Me.btnF10.Name = "btnF10"       Me.btnF10.Size = New System.Drawing.Size(32, 23)       Me.btnF10.TabIndex = 74       Me.btnF10.Text = "F10"       '       'btnF11       '       Me.btnF11.Location = New System.Drawing.Point(368, 216)       Me.btnF11.Name = "btnF11"       Me.btnF11.Size = New System.Drawing.Size(32, 23)       Me.btnF11.TabIndex = 75       Me.btnF11.Text = "F11"       '       'btnF12       '       Me.btnF12.Location = New System.Drawing.Point(400, 216)       Me.btnF12.Name = "btnF12"       Me.btnF12.Size = New System.Drawing.Size(32, 23)       Me.btnF12.TabIndex = 76       Me.btnF12.Text = "F12"       '       'btn1       '       Me.btn1.Location = New System.Drawing.Point(80, 240)       Me.btn1.Name = "btn1"       Me.btn1.Size = New System.Drawing.Size(24, 23)       Me.btn1.TabIndex = 77       Me.btn1.Text = "1"       '       'btn2       '       Me.btn2.Location = New System.Drawing.Point(104, 240)       Me.btn2.Name = "btn2"       Me.btn2.Size = New System.Drawing.Size(24, 23)       Me.btn2.TabIndex = 78       Me.btn2.Text = "2"       '       'btn3       '       Me.btn3.Location = New System.Drawing.Point(128, 240)       Me.btn3.Name = "btn3"       Me.btn3.Size = New System.Drawing.Size(24, 23)       Me.btn3.TabIndex = 79       Me.btn3.Text = "3"       '       'btn4       '       Me.btn4.Location = New System.Drawing.Point(152, 240)       Me.btn4.Name = "btn4"       Me.btn4.Size = New System.Drawing.Size(24, 23)       Me.btn4.TabIndex = 80       Me.btn4.Text = "4"       '       'btn5       '       Me.btn5.Location = New System.Drawing.Point(176, 240)       Me.btn5.Name = "btn5"       Me.btn5.Size = New System.Drawing.Size(24, 23)       Me.btn5.TabIndex = 81       Me.btn5.Text = "5"       '       'btn6       '       Me.btn6.Location = New System.Drawing.Point(200, 240)       Me.btn6.Name = "btn6"       Me.btn6.Size = New System.Drawing.Size(24, 23)       Me.btn6.TabIndex = 82       Me.btn6.Text = "6"       '       'btn7       '       Me.btn7.Location = New System.Drawing.Point(224, 240)       Me.btn7.Name = "btn7"       Me.btn7.Size = New System.Drawing.Size(24, 23)       Me.btn7.TabIndex = 83       Me.btn7.Text = "7"       '       'btn8       '       Me.btn8.Location = New System.Drawing.Point(248, 240)       Me.btn8.Name = "btn8"       Me.btn8.Size = New System.Drawing.Size(24, 23)       Me.btn8.TabIndex = 84       Me.btn8.Text = "8"       '       'btn9       '       Me.btn9.Location = New System.Drawing.Point(272, 240)       Me.btn9.Name = "btn9"       Me.btn9.Size = New System.Drawing.Size(24, 23)       Me.btn9.TabIndex = 85       Me.btn9.Text = "9"       '       'btn0       '       Me.btn0.Location = New System.Drawing.Point(296, 240)       Me.btn0.Name = "btn0"       Me.btn0.Size = New System.Drawing.Size(24, 23)       Me.btn0.TabIndex = 86       Me.btn0.Text = "0"       '       'btnHyphen       '       Me.btnHyphen.Location = New System.Drawing.Point(320, 240)       Me.btnHyphen.Name = "btnHyphen"       Me.btnHyphen.Size = New System.Drawing.Size(24, 23)       Me.btnHyphen.TabIndex = 87       Me.btnHyphen.Text = "-"       '       'btnPlus       '       Me.btnPlus.Location = New System.Drawing.Point(344, 240)       Me.btnPlus.Name = "btnPlus"       Me.btnPlus.Size = New System.Drawing.Size(24, 23)       Me.btnPlus.TabIndex = 88       Me.btnPlus.Text = "+"       '       'btnTilde       '       Me.btnTilde.Location = New System.Drawing.Point(32, 240)       Me.btnTilde.Name = "btnTilde"       Me.btnTilde.Size = New System.Drawing.Size(48, 23)       Me.btnTilde.TabIndex = 89       Me.btnTilde.Text = "~"       '       'btnTab       '       Me.btnTab.Location = New System.Drawing.Point(32, 264)       Me.btnTab.Name = "btnTab"       Me.btnTab.Size = New System.Drawing.Size(64, 23)       Me.btnTab.TabIndex = 90       Me.btnTab.Text = "Tab"       '       'btnCtrlLeft       '       Me.btnCtrlLeft.Location = New System.Drawing.Point(32, 336)       Me.btnCtrlLeft.Name = "btnCtrlLeft"       Me.btnCtrlLeft.Size = New System.Drawing.Size(56, 23)       Me.btnCtrlLeft.TabIndex = 91       Me.btnCtrlLeft.Text = "Ctrl"       '       'btnFn       '       Me.btnFn.Enabled = False       Me.btnFn.Location = New System.Drawing.Point(88, 336)       Me.btnFn.Name = "btnFn"       Me.btnFn.Size = New System.Drawing.Size(32, 23)       Me.btnFn.TabIndex = 92       Me.btnFn.Text = "Fn"       '       'btnAltLeft       '       Me.btnAltLeft.Location = New System.Drawing.Point(120, 336)       Me.btnAltLeft.Name = "btnAltLeft"       Me.btnAltLeft.Size = New System.Drawing.Size(32, 23)       Me.btnAltLeft.TabIndex = 93       Me.btnAltLeft.Text = "Alt"       '       'btnEnter       '       Me.btnEnter.Location = New System.Drawing.Point(368, 288)       Me.btnEnter.Name = "btnEnter"       Me.btnEnter.Size = New System.Drawing.Size(72, 23)       Me.btnEnter.TabIndex = 94       Me.btnEnter.Text = "Enter"       '       'btnSlash       '       Me.btnSlash.Location = New System.Drawing.Point(384, 264)       Me.btnSlash.Name = "btnSlash"       Me.btnSlash.Size = New System.Drawing.Size(56, 23)       Me.btnSlash.TabIndex = 95       Me.btnSlash.Text = "\"       '       'btnBackspace       '       Me.btnBackspace.Location = New System.Drawing.Point(368, 240)       Me.btnBackspace.Name = "btnBackspace"       Me.btnBackspace.Size = New System.Drawing.Size(72, 23)       Me.btnBackspace.TabIndex = 96       Me.btnBackspace.Text = "Backspace"       '       'btnSpace       '       Me.btnSpace.Location = New System.Drawing.Point(152, 336)       Me.btnSpace.Name = "btnSpace"       Me.btnSpace.Size = New System.Drawing.Size(144, 23)       Me.btnSpace.TabIndex = 97       '       'btnCaps       '       Me.btnCaps.Location = New System.Drawing.Point(32, 288)       Me.btnCaps.Name = "btnCaps"       Me.btnCaps.Size = New System.Drawing.Size(72, 23)       Me.btnCaps.TabIndex = 98       Me.btnCaps.Text = "Caps Lock"       '       'btnShiftLeft       '       Me.btnShiftLeft.Location = New System.Drawing.Point(32, 312)       Me.btnShiftLeft.Name = "btnShiftLeft"       Me.btnShiftLeft.Size = New System.Drawing.Size(88, 23)       Me.btnShiftLeft.TabIndex = 99       Me.btnShiftLeft.Text = "Shift"       '       'btnUp       '       Me.btnUp.Location = New System.Drawing.Point(384, 312)       Me.btnUp.Name = "btnUp"       Me.btnUp.Size = New System.Drawing.Size(24, 23)       Me.btnUp.TabIndex = 100       Me.btnUp.Text = "^"       '       'btnLeft       '       Me.btnLeft.Location = New System.Drawing.Point(360, 336)       Me.btnLeft.Name = "btnLeft"       Me.btnLeft.Size = New System.Drawing.Size(24, 23)       Me.btnLeft.TabIndex = 101       Me.btnLeft.Text = "<"       '       'btnDown       '       Me.btnDown.Location = New System.Drawing.Point(384, 336)       Me.btnDown.Name = "btnDown"       Me.btnDown.Size = New System.Drawing.Size(24, 23)       Me.btnDown.TabIndex = 102       Me.btnDown.Text = "v"       '       'btnRight       '       Me.btnRight.Location = New System.Drawing.Point(408, 336)       Me.btnRight.Name = "btnRight"       Me.btnRight.Size = New System.Drawing.Size(24, 23)       Me.btnRight.TabIndex = 103       Me.btnRight.Text = ">"       '       'btnLeftBrace       '       Me.btnLeftBrace.Location = New System.Drawing.Point(336, 264)       Me.btnLeftBrace.Name = "btnLeftBrace"       Me.btnLeftBrace.Size = New System.Drawing.Size(24, 23)       Me.btnLeftBrace.TabIndex = 104       Me.btnLeftBrace.Text = "["       '       'btnRightBrace       '       Me.btnRightBrace.Location = New System.Drawing.Point(360, 264)       Me.btnRightBrace.Name = "btnRightBrace"       Me.btnRightBrace.Size = New System.Drawing.Size(24, 23)       Me.btnRightBrace.TabIndex = 105       Me.btnRightBrace.Text = "]"       '       'btnColon       '       Me.btnColon.Location = New System.Drawing.Point(320, 288)       Me.btnColon.Name = "btnColon"       Me.btnColon.Size = New System.Drawing.Size(24, 23)       Me.btnColon.TabIndex = 106       Me.btnColon.Text = ":"       '       'btnQuote       '       Me.btnQuote.Location = New System.Drawing.Point(344, 288)       Me.btnQuote.Name = "btnQuote"       Me.btnQuote.Size = New System.Drawing.Size(24, 23)       Me.btnQuote.TabIndex = 107       Me.btnQuote.Text = """"       '       'btnComma       '       Me.btnComma.Location = New System.Drawing.Point(288, 312)       Me.btnComma.Name = "btnComma"       Me.btnComma.Size = New System.Drawing.Size(24, 23)       Me.btnComma.TabIndex = 108       Me.btnComma.Text = ","       '       'btnPeriod       '       Me.btnPeriod.Location = New System.Drawing.Point(312, 312)       Me.btnPeriod.Name = "btnPeriod"       Me.btnPeriod.Size = New System.Drawing.Size(24, 23)       Me.btnPeriod.TabIndex = 109       Me.btnPeriod.Text = "."       '       'btnQuestion       '       Me.btnQuestion.Location = New System.Drawing.Point(336, 312)       Me.btnQuestion.Name = "btnQuestion"       Me.btnQuestion.Size = New System.Drawing.Size(24, 23)       Me.btnQuestion.TabIndex = 110       Me.btnQuestion.Text = "?"       '       'btnC       '       Me.btnC.Location = New System.Drawing.Point(168, 312)       Me.btnC.Name = "btnC"       Me.btnC.Size = New System.Drawing.Size(24, 23)       Me.btnC.TabIndex = 111       Me.btnC.Text = "C"       '       'btnB       '       Me.btnB.Location = New System.Drawing.Point(216, 312)       Me.btnB.Name = "btnB"       Me.btnB.Size = New System.Drawing.Size(24, 23)       Me.btnB.TabIndex = 112       Me.btnB.Text = "B"       '       'btnA       '       Me.btnA.Location = New System.Drawing.Point(104, 288)       Me.btnA.Name = "btnA"       Me.btnA.Size = New System.Drawing.Size(24, 23)       Me.btnA.TabIndex = 113       Me.btnA.Text = "A"       '       'btnG       '       Me.btnG.Location = New System.Drawing.Point(200, 288)       Me.btnG.Name = "btnG"       Me.btnG.Size = New System.Drawing.Size(24, 23)       Me.btnG.TabIndex = 114       Me.btnG.Text = "G"       '       'btnF       '       Me.btnF.Location = New System.Drawing.Point(176, 288)       Me.btnF.Name = "btnF"       Me.btnF.Size = New System.Drawing.Size(24, 23)       Me.btnF.TabIndex = 115       Me.btnF.Text = "F"       '       'btnE       '       Me.btnE.Location = New System.Drawing.Point(144, 264)       Me.btnE.Name = "btnE"       Me.btnE.Size = New System.Drawing.Size(24, 23)       Me.btnE.TabIndex = 116       Me.btnE.Text = "E"       '       'btnD       '       Me.btnD.Location = New System.Drawing.Point(152, 288)       Me.btnD.Name = "btnD"       Me.btnD.Size = New System.Drawing.Size(24, 23)       Me.btnD.TabIndex = 117       Me.btnD.Text = "D"       '       'btnK       '       Me.btnK.Location = New System.Drawing.Point(272, 288)       Me.btnK.Name = "btnK"       Me.btnK.Size = New System.Drawing.Size(24, 23)       Me.btnK.TabIndex = 118       Me.btnK.Text = "K"       '       'btnJ       '       Me.btnJ.Location = New System.Drawing.Point(248, 288)       Me.btnJ.Name = "btnJ"       Me.btnJ.Size = New System.Drawing.Size(24, 23)       Me.btnJ.TabIndex = 119       Me.btnJ.Text = "J"       '       'btnI       '       Me.btnI.Location = New System.Drawing.Point(264, 264)       Me.btnI.Name = "btnI"       Me.btnI.Size = New System.Drawing.Size(24, 23)       Me.btnI.TabIndex = 120       Me.btnI.Text = "I"       '       'btnH       '       Me.btnH.Location = New System.Drawing.Point(224, 288)       Me.btnH.Name = "btnH"       Me.btnH.Size = New System.Drawing.Size(24, 23)       Me.btnH.TabIndex = 121       Me.btnH.Text = "H"       '       'btnO       '       Me.btnO.Location = New System.Drawing.Point(288, 264)       Me.btnO.Name = "btnO"       Me.btnO.Size = New System.Drawing.Size(24, 23)       Me.btnO.TabIndex = 122       Me.btnO.Text = "O"       '       'btnN       '       Me.btnN.Location = New System.Drawing.Point(240, 312)       Me.btnN.Name = "btnN"       Me.btnN.Size = New System.Drawing.Size(24, 23)       Me.btnN.TabIndex = 123       Me.btnN.Text = "N"       '       'btnM       '       Me.btnM.Location = New System.Drawing.Point(264, 312)       Me.btnM.Name = "btnM"       Me.btnM.Size = New System.Drawing.Size(24, 23)       Me.btnM.TabIndex = 124       Me.btnM.Text = "M"       '       'btnL       '       Me.btnL.Location = New System.Drawing.Point(296, 288)       Me.btnL.Name = "btnL"       Me.btnL.Size = New System.Drawing.Size(24, 23)       Me.btnL.TabIndex = 125       Me.btnL.Text = "L"       '       'btnT       '       Me.btnT.Location = New System.Drawing.Point(192, 264)       Me.btnT.Name = "btnT"       Me.btnT.Size = New System.Drawing.Size(24, 23)       Me.btnT.TabIndex = 126       Me.btnT.Text = "T"       '       'btnS       '       Me.btnS.Location = New System.Drawing.Point(128, 288)       Me.btnS.Name = "btnS"       Me.btnS.Size = New System.Drawing.Size(24, 23)       Me.btnS.TabIndex = 127       Me.btnS.Text = "S"       '       'btnR       '       Me.btnR.Location = New System.Drawing.Point(168, 264)       Me.btnR.Name = "btnR"       Me.btnR.Size = New System.Drawing.Size(24, 23)       Me.btnR.TabIndex = 128       Me.btnR.Text = "R"       '       'btnQ       '       Me.btnQ.Location = New System.Drawing.Point(96, 264)       Me.btnQ.Name = "btnQ"       Me.btnQ.Size = New System.Drawing.Size(24, 23)       Me.btnQ.TabIndex = 129       Me.btnQ.Text = "Q"       '       'btnP       '       Me.btnP.Location = New System.Drawing.Point(312, 264)       Me.btnP.Name = "btnP"       Me.btnP.Size = New System.Drawing.Size(24, 23)       Me.btnP.TabIndex = 130       Me.btnP.Text = "P"       '       'btnY       '       Me.btnY.Location = New System.Drawing.Point(216, 264)       Me.btnY.Name = "btnY"       Me.btnY.Size = New System.Drawing.Size(24, 23)       Me.btnY.TabIndex = 131       Me.btnY.Text = "Y"       '       'btnX       '       Me.btnX.Location = New System.Drawing.Point(144, 312)       Me.btnX.Name = "btnX"       Me.btnX.Size = New System.Drawing.Size(24, 23)       Me.btnX.TabIndex = 132       Me.btnX.Text = "X"       '       'btnW       '       Me.btnW.Location = New System.Drawing.Point(120, 264)       Me.btnW.Name = "btnW"       Me.btnW.Size = New System.Drawing.Size(24, 23)       Me.btnW.TabIndex = 133       Me.btnW.Text = "W"       '       'btnV       '       Me.btnV.Location = New System.Drawing.Point(192, 312)       Me.btnV.Name = "btnV"       Me.btnV.Size = New System.Drawing.Size(24, 23)       Me.btnV.TabIndex = 134       Me.btnV.Text = "V"       '       'btnU       '       Me.btnU.Location = New System.Drawing.Point(240, 264)       Me.btnU.Name = "btnU"       Me.btnU.Size = New System.Drawing.Size(24, 23)       Me.btnU.TabIndex = 135       Me.btnU.Text = "U"       '       'btnZ       '       Me.btnZ.Location = New System.Drawing.Point(120, 312)       Me.btnZ.Name = "btnZ"       Me.btnZ.Size = New System.Drawing.Size(24, 23)       Me.btnZ.TabIndex = 136       Me.btnZ.Text = "Z"       '       'FrmTypingApplication       '       Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)       Me.ClientSize = New System.Drawing.Size(472, 369)       Me.Controls.Add(Me.btnZ)       Me.Controls.Add(Me.btnU)       Me.Controls.Add(Me.btnV)       Me.Controls.Add(Me.btnW)       Me.Controls.Add(Me.btnX)       Me.Controls.Add(Me.btnY)       Me.Controls.Add(Me.btnP)       Me.Controls.Add(Me.btnQ)       Me.Controls.Add(Me.btnR)       Me.Controls.Add(Me.btnS)       Me.Controls.Add(Me.btnT)       Me.Controls.Add(Me.btnL)       Me.Controls.Add(Me.btnM)       Me.Controls.Add(Me.btnN)       Me.Controls.Add(Me.btnO)       Me.Controls.Add(Me.btnH)       Me.Controls.Add(Me.btnI)       Me.Controls.Add(Me.btnJ)       Me.Controls.Add(Me.btnK)       Me.Controls.Add(Me.btnD)       Me.Controls.Add(Me.btnE)       Me.Controls.Add(Me.btnF)       Me.Controls.Add(Me.btnG)       Me.Controls.Add(Me.btnA)       Me.Controls.Add(Me.btnB)       Me.Controls.Add(Me.btnC)       Me.Controls.Add(Me.btnQuestion)       Me.Controls.Add(Me.btnPeriod)       Me.Controls.Add(Me.btnComma)       Me.Controls.Add(Me.btnQuote)       Me.Controls.Add(Me.btnColon)       Me.Controls.Add(Me.btnRightBrace)       Me.Controls.Add(Me.btnLeftBrace)       Me.Controls.Add(Me.btnRight)       Me.Controls.Add(Me.btnDown)       Me.Controls.Add(Me.btnLeft)       Me.Controls.Add(Me.btnUp)       Me.Controls.Add(Me.btnShiftLeft)       Me.Controls.Add(Me.btnCaps)       Me.Controls.Add(Me.btnSpace)       Me.Controls.Add(Me.btnBackspace)       Me.Controls.Add(Me.btnSlash)       Me.Controls.Add(Me.btnEnter)       Me.Controls.Add(Me.btnAltLeft)       Me.Controls.Add(Me.btnFn)       Me.Controls.Add(Me.btnCtrlLeft)       Me.Controls.Add(Me.btnTab)       Me.Controls.Add(Me.btnTilde)       Me.Controls.Add(Me.btnPlus)       Me.Controls.Add(Me.btnHyphen)       Me.Controls.Add(Me.btn0)       Me.Controls.Add(Me.btn9)       Me.Controls.Add(Me.btn8)       Me.Controls.Add(Me.btn7)       Me.Controls.Add(Me.btn6)       Me.Controls.Add(Me.btn5)       Me.Controls.Add(Me.btn4)       Me.Controls.Add(Me.btn3)       Me.Controls.Add(Me.btn2)       Me.Controls.Add(Me.btn1)       Me.Controls.Add(Me.btnF12)       Me.Controls.Add(Me.btnF11)       Me.Controls.Add(Me.btnF10)       Me.Controls.Add(Me.btnF9)       Me.Controls.Add(Me.btnF8)       Me.Controls.Add(Me.btnF7)       Me.Controls.Add(Me.btnF6)       Me.Controls.Add(Me.btnF5)       Me.Controls.Add(Me.btnF4)       Me.Controls.Add(Me.btnF3)       Me.Controls.Add(Me.btnF2)       Me.Controls.Add(Me.btnF1)       Me.Controls.Add(Me.txtOutput)       Me.Controls.Add(Me.lblPrompt)       Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.Name = "FrmTypingApplication"       Me.Text = "Typing Application"       Me.ResumeLayout(False)    End Sub #End Region        Private Sub txtOutput_KeyDown(ByVal sender As Object, _       ByVal e As System.Windows.Forms.KeyEventArgs) _       Handles txtOutput.KeyDown       Select Case e.KeyData          Case Keys.Back              ChangeColor(btnBackspace)          Case Keys.Enter              ChangeColor(btnEnter)          Case Keys.Tab              ChangeColor(btnTab)          Case Keys.Space              ChangeColor(btnSpace)          Case Keys.D0             ChangeColor(btn0)          Case Keys.D1             ChangeColor(btn1)          Case Keys.D2             ChangeColor(btn2)          Case Keys.D3             ChangeColor(btn3)          Case Keys.D4             ChangeColor(btn4)          Case Keys.D5             ChangeColor(btn5)          Case Keys.D6             ChangeColor(btn6)          Case Keys.D7             ChangeColor(btn7)          Case Keys.D8             ChangeColor(btn8)          Case Keys.D9             ChangeColor(btn9)          Case Keys.F1              ChangeColor(btnF1)          Case Keys.F2              ChangeColor(btnF2)          Case Keys.F3              ChangeColor(btnF3)          Case Keys.F4              ChangeColor(btnF4)          Case Keys.F5              ChangeColor(btnF5)          Case Keys.F6              ChangeColor(btnF6)          Case Keys.F7              ChangeColor(btnF7)          Case Keys.F8              ChangeColor(btnF8)          Case Keys.F9              ChangeColor(btnF9)          Case Keys.F10             ChangeColor(btnF10)          Case Keys.F11             ChangeColor(btnF11)          Case Keys.F12             ChangeColor(btnF12)          Case Keys.OemOpenBrackets             ChangeColor(btnLeftBrace)          Case Keys.OemCloseBrackets             ChangeColor(btnRightBrace)          Case Keys.Oemplus             ChangeColor(btnPlus)          Case Keys.OemMinus             ChangeColor(btnHyphen)          Case Keys.Oemtilde             ChangeColor(btnTilde)          Case Keys.OemPipe              ChangeColor(btnSlash)          Case Keys.OemSemicolon              ChangeColor(btnColon)          Case Keys.OemQuotes              ChangeColor(btnQuote)          Case Keys.OemPeriod              ChangeColor(btnPeriod)          Case Keys.Oemcomma             ChangeColor(btnComma)          Case Keys.OemQuestion             ChangeColor(btnQuestion)          Case Keys.CapsLock             ChangeColor(btnCaps)          Case Keys.Down             ChangeColor(btnDown)          Case Keys.Up             ChangeColor(btnUp)          Case Keys.Left             ChangeColor(btnLeft)          Case Keys.Right              ChangeColor(btnRight)          ' if a modifier key was pressed          Case CType(65552, Keys) ' Shift key             ChangeColor(btnShiftLeft)          Case CType(131089, Keys) ' Control key             ChangeColor(btnCtrlLeft)          Case CType(262162, Keys) ' Alt key             ChangeColor(btnAltLeft)       End Select       txtOutput.Text &= e.KeyData           End Sub     Private Sub txtOutput_KeyPress(ByVal sender As Object, _       ByVal e As System.Windows.Forms.KeyPressEventArgs) _       Handles txtOutput.KeyPress       txtOutput.Text &= e.KeyChar       Select Case Char.ToUpper(e.KeyChar)          Case Convert.ToChar(Keys.A) ' a key             ChangeColor(btnA)          Case Convert.ToChar(Keys.B) ' b key             ChangeColor(btnB)          Case Convert.ToChar(Keys.C) ' c key             ChangeColor(btnC)          Case Convert.ToChar(Keys.D) ' d key             ChangeColor(btnD)          Case Convert.ToChar(Keys.E) ' e key             ChangeColor(btnE)          Case Convert.ToChar(Keys.F) ' f key             ChangeColor(btnF)          Case Convert.ToChar(Keys.G) ' g key             ChangeColor(btnG)          Case Convert.ToChar(Keys.H) ' h key             ChangeColor(btnH)          Case Convert.ToChar(Keys.I) ' i key             ChangeColor(btnI)          Case Convert.ToChar(Keys.J) ' j key             ChangeColor(btnJ)          Case Convert.ToChar(Keys.K) ' k key             ChangeColor(btnK)          Case Convert.ToChar(Keys.L) ' l key             ChangeColor(btnL)          Case Convert.ToChar(Keys.M) ' m key             ChangeColor(btnM)          Case Convert.ToChar(Keys.N) ' n key             ChangeColor(btnN)          Case Convert.ToChar(Keys.O) ' o key             ChangeColor(btnO)          Case Convert.ToChar(Keys.P) ' p key             ChangeColor(btnP)          Case Convert.ToChar(Keys.Q) ' q key             ChangeColor(btnQ)          Case Convert.ToChar(Keys.R) ' r key             ChangeColor(btnR)          Case Convert.ToChar(Keys.S) ' s key             ChangeColor(btnS)          Case Convert.ToChar(Keys.T) ' t key             ChangeColor(btnT)          Case Convert.ToChar(Keys.U) ' u key             ChangeColor(btnU)          Case Convert.ToChar(Keys.V) ' v key             ChangeColor(btnV)          Case Convert.ToChar(Keys.W) ' w key             ChangeColor(btnW)          Case Convert.ToChar(Keys.X) ' x key             ChangeColor(btnX)          Case Convert.ToChar(Keys.Y) ' y key             ChangeColor(btnY)          Case Convert.ToChar(Keys.Z) ' z key             ChangeColor(btnZ)       End Select     End Sub     Private Sub txtOutput_KeyUp(ByVal sender As Object, _       ByVal e As System.Windows.Forms.KeyEventArgs) _       Handles txtOutput.KeyUp       ResetColor()    End Sub ' txtOutput_KeyUp    Private Sub ChangeColor(ByVal btnButton As Button)       ResetColor()       btnButton.BackColor = Color.Red       m_btnLastButton = btnButton    End Sub ' ChangeColor    Private Sub ResetColor()       If IsNothing(m_btnLastButton) = False Then          m_btnLastButton.BackColor = _             m_btnLastButton.DefaultBackColor       End If     End Sub  End Class