VERSION 2.00
Begin Form Form1 
   Caption         =   "Form1"
   Height          =   8745
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   8340
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin TextBox Text5 
      Height          =   1095
      Left            =   2280
      TabIndex        =   7
      Text            =   "Text5"
      Top             =   3600
      Width           =   1695
   End
   Begin TextBox Text4 
      Height          =   735
      Left            =   5760
      TabIndex        =   5
      Top             =   1320
      Width           =   1215
   End
   Begin TextBox Text3 
      Height          =   735
      Left            =   4440
      TabIndex        =   2
      Top             =   1320
      Width           =   975
   End
   Begin TextBox Text2 
      Height          =   615
      Left            =   2520
      TabIndex        =   1
      Top             =   1320
      Width           =   1095
   End
   Begin TextBox Text1 
      Height          =   1335
      Left            =   240
      TabIndex        =   0
      Top             =   1080
      Width           =   2055
   End
   Begin Label Label3 
      Alignment       =   2  'Center
      Caption         =   "Shift"
      Height          =   255
      Left            =   5880
      TabIndex        =   6
      Top             =   960
      Width           =   1095
   End
   Begin Label Label2 
      Alignment       =   2  'Center
      Caption         =   "Ascii"
      Height          =   255
      Left            =   4440
      TabIndex        =   4
      Top             =   960
      Width           =   855
   End
   Begin Label Label1 
      Alignment       =   2  'Center
      Caption         =   "KeyCode"
      Height          =   255
      Left            =   2640
      TabIndex        =   3
      Top             =   960
      Width           =   975
   End
End
Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
Text2.Text = KeyCode
Text4.Text = Str(Shift)
Text5.Text = Chr(Text4.Text)
End Sub

Sub Text1_KeyPress (KeyAscii As Integer)
char = Chr(KeyAscii)
Text3 = Str(KeyAscii)
Text5 = char'
End Sub

Sub Text3_KeyPress (KeyAscii As Integer)
char = Chr(KeyAscii)
'Display Caracter of ascii code
Text5 = char'

End Sub