Dim const KeySymbol As Int = 0
Dim const NormalCode As Int = 1
Dim const ShiftCode As Int = 2
Dim const CapsCode As Int = 3
Dim const ShiftCapsCode As Int = 4
Dim const CtrlCode As Int = 5
Dim const FnCode As Int = 6
Dim const AltCode As Int = 7
Dim const AltGrCode As Int = 8
Dim const KeyEvent As Int = 9
Dim KeyInfoStrings() As String = Array As String ("Esc", "Esc", "Esc", "Esc", "", "", "", "", "" , "Esc", _ 'Row 1
"F1", "F1", "F1", "F1", "", "", "", "", "" , "F1", _
"F2", "F2", "F2", "F2", "", "", "", "", "" , "F2", _
………….
"¬" & CRLF & "` ¦", "`", "¬", "`", "¬", "", "", "", "" , "", _ 'Row 2
"!" & CRLF & "1", "1", "!", "1", "", "", "", "", "" , "", _
Chr(34) & CRLF & "2", 2, Chr(34), "2", Chr(34), "", "", "", "" , "", _
…………..
"A", "a", "A", etc.
Sub KeyboardButtons_Click ' Built in _Click event
Dim B As Button = Sender
If KeyInfoStrings((B.Tag * 10) + KeyEvent) <> "" Then
CallSub(Me, KeyInfoStrings((B.Tag * 10) + KeyEvent) & "_Click") ' my "normal routine"
Return
End If
etc.
End Sub