VB.Net/Event/Key Action

Displaying information about a user-pressed key

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Public Class MainClass
   Shared Sub Main()
        Dim myform As Form = New FrmKeyDemo()
        Application.Run(myform)
   End Sub " Main
End Class
Public Class FrmKeyDemo
   Inherits System.Windows.Forms.Form
#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
   Friend WithEvents lblInformation As System.Windows.Forms.Label
   Friend WithEvents lblCharacter As System.Windows.Forms.Label
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.Container
   "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.
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Me.lblInformation = New System.Windows.Forms.Label()
      Me.lblCharacter = New System.Windows.Forms.Label()
      Me.SuspendLayout()
      "
      "lblInformation
      "
      Me.lblInformation.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.lblInformation.Location = New System.Drawing.Point(8, 56)
      Me.lblInformation.Name = "lblInformation"
      Me.lblInformation.Size = New System.Drawing.Size(176, 136)
      Me.lblInformation.TabIndex = 1
      "
      "lblCharacter
      "
      Me.lblCharacter.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.lblCharacter.Location = New System.Drawing.Point(8, 16)
      Me.lblCharacter.Name = "lblCharacter"
      Me.lblCharacter.Size = New System.Drawing.Size(168, 23)
      Me.lblCharacter.TabIndex = 0
      "
      "FrmKeyDemo
      "
      Me.AutoScaleBaseSize = New System.Drawing.Size(9, 22)
      Me.ClientSize = New System.Drawing.Size(192, 205)
      Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblInformation, Me.lblCharacter})
      Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
      Me.Name = "FrmKeyDemo"
      Me.Text = "KeyDemo"
      Me.ResumeLayout(False)
   End Sub
#End Region
   Private Sub FrmKeyDemo_KeyPress(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.KeyPressEventArgs) _
      Handles MyBase.KeyPress
      lblCharacter.Text = "Key pressed: " & e.KeyChar
   End Sub
   Private Sub FrmKeyDemo_KeyDown(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.KeyEventArgs) _
      Handles MyBase.KeyDown
      lblInformation.Text = ""
      " if key is Alt
      If e.Alt Then
         lblInformation.Text &= "Alt: Yes" & vbCrLf
      Else
         lblInformation.Text &= "Alt: No" & vbCrLf
      End If
      " if key is Shift
      If e.Shift Then
         lblInformation.Text &= "Shift: Yes" & vbCrLf
      Else
         lblInformation.Text &= "Shift: No" & vbCrLf
      End If
      " if key is Ctrl
      If e.Control Then
         lblInformation.Text &= "Ctrl: Yes" & vbCrLf
      Else
         lblInformation.Text &= "Ctrl: No" & vbCrLf
      End If
      lblInformation.Text &= "KeyCode: " & e.KeyCode.ToString & _
            vbCrLf & "KeyData: " & e.KeyData.ToString & _
            vbCrLf & "KeyValue: " & e.KeyValue
   End Sub " FrmKeyDemo_KeyDown
End Class

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.ruponentModel.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

Key action info: data, code, modifier and value

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Public Class Form1
    Inherits System.Windows.Forms.Form
#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.ruponentModel.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 keyDataLabel As System.Windows.Forms.Label
    Friend WithEvents label1 As System.Windows.Forms.Label
    Friend WithEvents label2 As System.Windows.Forms.Label
    Friend WithEvents keyCodeLabel As System.Windows.Forms.Label
    Friend WithEvents modifiersLabel As System.Windows.Forms.Label
    Friend WithEvents label4 As System.Windows.Forms.Label
    Friend WithEvents keyValueLabel As System.Windows.Forms.Label
    Friend WithEvents label5 As System.Windows.Forms.Label
    Friend WithEvents label3 As System.Windows.Forms.Label
    Friend WithEvents keyCharLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.keyDataLabel = New System.Windows.Forms.Label()
        Me.label1 = New System.Windows.Forms.Label()
        Me.label2 = New System.Windows.Forms.Label()
        Me.keyCodeLabel = New System.Windows.Forms.Label()
        Me.modifiersLabel = New System.Windows.Forms.Label()
        Me.label4 = New System.Windows.Forms.Label()
        Me.keyValueLabel = New System.Windows.Forms.Label()
        Me.label5 = New System.Windows.Forms.Label()
        Me.label3 = New System.Windows.Forms.Label()
        Me.keyCharLabel = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        "
        "keyDataLabel
        "
        Me.keyDataLabel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.keyDataLabel.Location = New System.Drawing.Point(120, 8)
        Me.keyDataLabel.Name = "keyDataLabel"
        Me.keyDataLabel.Size = New System.Drawing.Size(228, 23)
        Me.keyDataLabel.TabIndex = 9
        "
        "label1
        "
        Me.label1.Location = New System.Drawing.Point(8, 8)
        Me.label1.Name = "label1"
        Me.label1.TabIndex = 5
        Me.label1.Text = "KeyData"
        "
        "label2
        "
        Me.label2.Location = New System.Drawing.Point(8, 40)
        Me.label2.Name = "label2"
        Me.label2.TabIndex = 6
        Me.label2.Text = "KeyCode"
        "
        "keyCodeLabel
        "
        Me.keyCodeLabel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.keyCodeLabel.Location = New System.Drawing.Point(120, 40)
        Me.keyCodeLabel.Name = "keyCodeLabel"
        Me.keyCodeLabel.Size = New System.Drawing.Size(228, 23)
        Me.keyCodeLabel.TabIndex = 10
        "
        "modifiersLabel
        "
        Me.modifiersLabel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.modifiersLabel.Location = New System.Drawing.Point(120, 72)
        Me.modifiersLabel.Name = "modifiersLabel"
        Me.modifiersLabel.Size = New System.Drawing.Size(228, 23)
        Me.modifiersLabel.TabIndex = 11
        "
        "label4
        "
        Me.label4.Location = New System.Drawing.Point(8, 72)
        Me.label4.Name = "label4"
        Me.label4.TabIndex = 4
        Me.label4.Text = "Modifiers"
        "
        "keyValueLabel
        "
        Me.keyValueLabel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.keyValueLabel.Location = New System.Drawing.Point(120, 104)
        Me.keyValueLabel.Name = "keyValueLabel"
        Me.keyValueLabel.Size = New System.Drawing.Size(228, 23)
        Me.keyValueLabel.TabIndex = 8
        "
        "label5
        "
        Me.label5.Location = New System.Drawing.Point(8, 104)
        Me.label5.Name = "label5"
        Me.label5.TabIndex = 3
        Me.label5.Text = "KeyValue"
        "
        "label3
        "
        Me.label3.Location = New System.Drawing.Point(8, 136)
        Me.label3.Name = "label3"
        Me.label3.TabIndex = 2
        Me.label3.Text = "KeyChar"
        "
        "keyCharLabel
        "
        Me.keyCharLabel.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.keyCharLabel.Location = New System.Drawing.Point(120, 136)
        Me.keyCharLabel.Name = "keyCharLabel"
        Me.keyCharLabel.Size = New System.Drawing.Size(228, 23)
        Me.keyCharLabel.TabIndex = 7
        "
        "Form1
        "
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(328, 174)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.keyDataLabel, Me.label1, Me.label2, Me.keyCodeLabel, Me.modifiersLabel, Me.label4, Me.keyValueLabel, Me.label5, Me.label3, Me.keyCharLabel})
        Me.Name = "Form1"
        Me.Text = "KeyTest"
        Me.ResumeLayout(False)
    End Sub
#End Region
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        keyDataLabel.Text = e.KeyData.ToString()
        keyCodeLabel.Text = e.KeyCode.ToString()
        modifiersLabel.Text = e.Modifiers.ToString()
        keyValueLabel.Text = e.KeyValue.ToString()
    End Sub
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        keyCharLabel.Text = e.KeyChar.ToString()
    End Sub
End Class

Public Class MainClass
    Shared Sub Main()
        Dim myform As Form = New  Form1()
        Application.Run(myform)
    End Sub
End Class

Key event: KeyChar code

Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Imports System.Drawing.Printing

Public Class MainClass
    Shared Sub Main()
       Dim form1 As Form = New Form1()
       Application.Run(form1) 
    End Sub
End Class


Public Class Form1
    Inherits System.Windows.Forms.Form
#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
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    "Required by the Windows Form Designer
    Private components As System.ruponentModel.Container
    "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.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        "
        "TextBox1
        "
        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TextBox1.Location = New System.Drawing.Point(48, 104)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(192, 27)
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = ""
        "
        "Label1
        "
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.2!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(24, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(232, 48)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Type somthing"
        "
        "Form1
        "
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
        Me.ClientSize = New System.Drawing.Size(292, 268)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.TextBox1})
        Me.Name = "Form1"
        Me.Text = "Key Event Examples"
        Me.ResumeLayout(False)
    End Sub
#End Region
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As Object, _
            ByVal e As System.Windows.Forms.KeyPressEventArgs) _
            Handles TextBox1.KeyPress
        If e.KeyChar < "0" Or e.KeyChar > "9" Then
            MessageBox.Show("only digits allowed")
            e.Handled = True
        End If
    End Sub
    
End Class