Option Explicit

 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Call GetKeyName(KeyCode)
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Call GetKeyName(KeyCode)
End Sub

 
 
Private Sub GetKeyName(key As Integer)
 
    Select Case key
       '-- vKey-Konstanten
       Case VK_LBUTTON
          Text1.Text = "Public Const VK_LBUTTON = &H1" & _
          "'Linker Mausbutton": Label1.Caption = "Linker Mausbutton"
       Case VK_RBUTTON
          Text1.Text = "Public Const VK_RBUTTON = &H2" & _
          " 'Rechter Mausbutton": Label1.Caption = "Rechter Mausbutton"
       Case VK_MBUTTON
          Text1.Text = "Public Const VK_MBUTTON = &H4 " & _
          "'Mittlerer Masubutton": Label1.Caption = "Mittlerer Masubutton"
       Case VK_BACK
          Text1.Text = "Public Const VK_BACK = &H8 " & _
          "'Backspace Taste": Label1.Caption = "Backspace Taste"
       Case VK_TAB
          Text1.Text = "Public Const VK_TAB = &H9 " & _
          "'Tab Taste": Label1.Caption = "Tab Taste"
       Case VK_CLEAR
          Text1.Text = "Public Const VK_CLEAR = &HC " & _
          "'Numpad 5 ohne Numlock": Label1.Caption = "Numpad 5 ohne Numlock"
       Case VK_RETURN
          Text1.Text = "Public Const VK_RETURN = &HD " & _
          "'Enter Taste": Label1.Caption = "Enter Taste"
       Case VK_SHIFT
          Text1.Text = "Public Const VK_SHIFT = &H10 " & _
          "'Shift Taste": Label1.Caption = "Shift Taste"
       Case VK_CONTROL
          Text1.Text = "Public Const VK_CONTROL = &H11 " & _
          "'STRG Taste": Label1.Caption = "STRG Taste"
       Case VK_MENU
          Text1.Text = "Public Const VK_MENU = &H12 " & _
          "'Alt Taste": Label1.Caption = "Alt Taste"
       Case VK_PAUSE
          Text1.Text = "Public Const VK_PAUSE = &H13 " & _
          "'Pause/Untbr": Label1.Caption = "Pause/Untbr"
       Case VK_CAPITAL
          Text1.Text = "Public Const VK_CAPITAL = &H14 " & _
          "'Caps Lock/Feststelltaste"
          Label1.Caption = "Caps Lock/Feststelltaste"
       Case VK_ESCAPE
          Text1.Text = "Public Const VK_ESCAPE = &H1B " & _
          "'Escape": Label1.Caption = "Escape"
       Case VK_SPACE
          Text1.Text = "Public Const VK_SPACE = &H20 " & _
          "'Space/Leertaste": Label1.Caption = "Space/Leertaste"
       Case VK_PRIOR
          Text1.Text = "Public Const VK_PRIOR = &H21 " & _
          "'PageUp/Bild hoch": Label1.Caption = "PageUp/Bild hoch"
       Case VK_NEXT
          Text1.Text = "Public Const VK_NEXT = &H22 " & _
          "'PageDown/Bild runter"
          Label1.Caption = "PageDown/Bild runter"
       Case VK_END
          Text1.Text = "Public Const VK_END = &H23 " & _
          "'Ende": Label1.Caption = "Ende"
       Case VK_HOME
          Text1.Text = "Public Const VK_HOME = &H24 " & _
          "'Home/Pos1": Label1.Caption = "Home/Pos1"
       Case VK_LEFT
          Text1.Text = "Public Const VK_LEFT = &H25 " & _
          "'Linke Pfeiltaste": Label1.Caption = "Linke Pfeiltaste"
       Case VK_UP
          Text1.Text = "Public Const VK_UP = &H26 " & _
          "'Obere Pfeilaste": Label1.Caption = "Obere Pfeilaste"
       Case VK_RIGHT
          Text1.Text = "Public Const VK_RIGHT = &H27 " & _
          "'Rechte Pfeiltaste": Label1.Caption = "Rechte Pfeiltaste"
       Case VK_DOWN
          Text1.Text = "Public Const VK_DOWN = &H28 " & _
          "'Untere Pfeiltaste": Label1.Caption = "Untere Pfeiltaste"
       Case VK_PRINT
          Text1.Text = "Public Const VK_PRINT = &H2A " & _
          "'Drucken (Nokia Tastaturen)"
          Label1.Caption = "Drucken (Nokia Tastaturen)"
       Case VK_SNAPSHOT
          Text1.Text = "Public Const VK_SNAPSHOT = &H2C " & _
          "'Drucken/S-Abf": Label1.Caption = "Drucken/S-Abf"
       Case VK_INSERT
          Text1.Text = "Public Const VK_INSERT = &H2D " & _
          "'Einfügen": Label1.Caption = "Einfügen"
       Case VK_DELETE
          Text1.Text = "Public Const VK_DELETE = &H2E " & _
          "'Entfernen": Label1.Caption = "Entfernen"
       Case VK_HELP
          Text1.Text = "Public Const VK_HELP = &H2F 'Hilfe"
          Label1.Caption = "Hilfe"
       Case VK_0
          Text1.Text = "Public Const VK_0 = &H30 'Taste 0"
          Label1.Caption = "Taste 0"
       Case VK_1
          Text1.Text = "Public Const VK_1 = &H31 'Taste 1"
          Label1.Caption = "Taste 1"
       Case VK_2
          Text1.Text = "Public Const VK_2 = &H32 'Taste 2"
          Label1.Caption = "Taste 2"
       Case VK_3
          Text1.Text = "Public Const VK_3 = &H33 'Taste 3"
          Label1.Caption = "Taste 3"
       Case VK_4
          Text1.Text = "Public Const VK_4 = &H34 'Taste 4"
          Label1.Caption = "Taste 4"
       Case VK_5
          Text1.Text = "Public Const VK_5 = &H35 'Taste 5"
          Label1.Caption = "Taste 5"
       Case VK_6
          Text1.Text = "Public Const VK_6 = &H36 'Taste 6"
          Label1.Caption = "Taste 6"
       Case VK_7
          Text1.Text = "Public Const VK_7 = &H37 'Taste 7"
          Label1.Caption = "Taste 7"
       Case VK_8
          Text1.Text = "Public Const VK_8 = &H38 'Taste 8"
          Label1.Caption = "Taste 8"
       Case VK_9
          Text1.Text = "Public Const VK_9 = &H39 'Taste 9"
          Label1.Caption = "Taste 9"
       Case VK_A
          Text1.Text = "Public Const VK_A = &H41 'Taste A"
          Label1.Caption = "Taste A"
       Case VK_B
          Text1.Text = "Public Const VK_B = &H42 'Taste B"
          Label1.Caption = "Taste B"
       Case VK_C
          Text1.Text = "Public Const VK_C = &H43 'Taste C"
          Label1.Caption = "Taste C"
       Case VK_D
          Text1.Text = "Public Const VK_D = &H44 'Taste D"
          Label1.Caption = "Taste D"
       Case VK_E
          Text1.Text = "Public Const VK_E = &H45 'Taste E"
          Label1.Caption = "Taste E"
       Case VK_F
          Text1.Text = "Public Const VK_F = &H46 'Taste F"
          Label1.Caption = "Taste F"
       Case VK_G
          Text1.Text = "Public Const VK_G = &H47 'Taste G"
          Label1.Caption = "Taste G"
       Case VK_H
          Text1.Text = "Public Const VK_H = &H48 'Taste H"
          Label1.Caption = "Taste H"
       Case VK_I
          Text1.Text = "Public Const VK_I = &H49 'Taste I"
          Label1.Caption = "Taste i"
       Case VK_J
          Text1.Text = "Public Const VK_J = &H4A 'Taste J"
          Label1.Caption = "Taste J"
       Case VK_K
          Text1.Text = "Public Const VK_K = &H4B 'Taste K"
          Label1.Caption = "Taste K"
       Case VK_L
          Text1.Text = "Public Const VK_L = &H4C 'Taste L"
          Label1.Caption = "Taste L"
       Case VK_M
          Text1.Text = "Public Const VK_M = &H4D 'Taste M"
          Label1.Caption = "Taste M"
       Case VK_N
           Text1.Text = "Public Const VK_N = &H4E 'Taste N"
           Label1.Caption = "Taste N"
       Case VK_O
          Text1.Text = "Public Const VK_O = &H4F 'Taste O"
          Label1.Caption = "Taste O"
       Case VK_P
          Text1.Text = "Public Const VK_P = &H50 'Taste P"
          Label1.Caption = "Taste P"
       Case VK_Q
          Text1.Text = "Public Const VK_Q = &H51 'Taste Q"
          Label1.Caption = "Taste Q"
       Case VK_R
          Text1.Text = "Public Const VK_R = &H52 'Taste R"
          Label1.Caption = "Taste R"
       Case VK_S
          Text1.Text = "Public Const VK_S = &H53 'Taste S"
          Label1.Caption = "Taste S"
       Case VK_T
          Text1.Text = "Public Const VK_T = &H54 'Taste T"
          Label1.Caption = "Taste T"
       Case VK_U
          Text1.Text = "Public Const VK_U = &H55 'Taste U"
          Label1.Caption = "Taste U"
       Case VK_V
          Text1.Text = "Public Const VK_V = &H56 'Taste V"
          Label1.Caption = "Taste V"
       Case VK_W
          Text1.Text = "Public Const VK_W = &H57 'Taste W"
          Label1.Caption = "Taste W"
       Case VK_X
          Text1.Text = "Public Const VK_X = &H58 'Taste X"
          Label1.Caption = "Taste X"
       Case VK_Y
          Text1.Text = "Public Const VK_Y = &H59 'Taste Y"
          Label1.Caption = "Taste Y"
       Case VK_Z
          Text1.Text = "Public Const VK_Z = &H5A 'Taste Z"
          Label1.Caption = "Taste Z"
       Case VK_STARTKEY
          Text1.Text = "Public Const VK_STARTKEY = &H5B 'Startmenütaste"
          Label1.Caption = "Startmenütaste"
       Case VK_CONTEXTKEY
          Text1.Text = "Public Const VK_CONTEXTKEY = &H5D 'Kentextmenü"
          Label1.Caption = "'Kentextmenü"
       Case VK_NUMPAD0
          Text1.Text = "Public Const VK_NUMPAD0 = &H60 'Numpad Taste 0"
          Label1.Caption = "Numpad Taste 0"
       Case VK_NUMPAD1
          Text1.Text = "Public Const VK_NUMPAD1 = &H61 'Numpad Taste 1"
          Label1.Caption = "Numpad Taste 1"
       Case VK_NUMPAD2
          Text1.Text = "Public Const VK_NUMPAD2 = &H62 'Numpad Taste 2"
          Label1.Caption = "Numpad Taste 2"
       Case VK_NUMPAD3
          Text1.Text = "Public Const VK_NUMPAD3 = &H63 'Numpad Taste 3"
          Label1.Caption = "Numpad Taste 3"
       Case VK_NUMPAD4
          Text1.Text = "Public Const VK_NUMPAD4 = &H64 'Numpad Taste 4"
          Label1.Caption = "Numpad Taste 4"
       Case VK_NUMPAD5
          Text1.Text = "Public Const VK_NUMPAD5 = &H65 'Numpad Taste 5"
          Label1.Caption = "Numpad Taste 5"
       Case VK_NUMPAD6
          Text1.Text = "Public Const VK_NUMPAD6 = &H66 'Numpad Taste 6"
          Label1.Caption = "Numpad Taste 6"
       Case VK_NUMPAD7
          Text1.Text = "Public Const VK_NUMPAD7 = &H67 'Numpad Taste 7"
          Label1.Caption = "Numpad Taste 7"
       Case VK_NUMPAD8
          Text1.Text = "Public Const VK_NUMPAD8 = &H68 'Numpad Taste 8"
          Label1.Caption = "Numpad Taste 8"
       Case VK_NUMPAD9
          Text1.Text = "Public Const VK_NUMPAD9 = &H69 'Numpad Taste 9"
          Label1.Caption = "Numpad Taste 9"
       Case VK_MULTIPLY
          Text1.Text = "Public Const VK_MULTIPLY = &H6A " & _
               "'Numpad Multiplikations Taste (*)"
          Label1.Caption = "Numpad Multiplikations Taste (*)"
       Case VK_ADD
          Text1.Text = "Public Const VK_ADD = &H6B " & _
          "'Numpad Additions Taste (+)"
          Label1.Caption = "Numpad Additions Taste (+)"
       Case VK_SUBTRACT
          Text1.Text = "Public Const VK_SUBTRACT = &H6D" & _
          "'Numpad Subtrations Taste (-)"
          Label1.Caption = "Numpad Subtrations Taste (-)"
       Case VK_DECIMAL
          Text1.Text = "Public Const VK_DECIMAL = &H6E " & _
          "'Numpad Komma Taste (,)"
          Label1.Caption = "Numpad Komma Taste (,)"
       Case VK_DIVIDE
          Text1.Text = "Public Const VK_DIVIDE = &H6F " & _
          "'Numpad Devidierungs Taste (/)"
          Label1.Caption = "Numpad Devidierungs Taste (/)"
       Case VK_F1
          Text1.Text = "Public Const VK_F1 = &H70 'F1 Taste"
          Label1.Caption = "F1 Taste"
       Case VK_F2
          Text1.Text = "Public Const VK_F2 = &H71 'F2 Taste"
          Label1.Caption = "F2 Taste"
       Case VK_F3
          Text1.Text = "Public Const VK_F3 = &H72 'F3 Taste"
          Label1.Caption = "F3 Taste"
       Case VK_F4
          Text1.Text = "Public Const VK_F4 = &H73 'F4 Taste"
          Label1.Caption = "F4 Taste"
       Case VK_F5
          Text1.Text = "Public Const VK_F5 = &H74 'F5 Taste"
          Label1.Caption = "F5 Taste"
       Case VK_F6
          Text1.Text = "Public Const VK_F6 = &H75 'F6 Taste"
          Label1.Caption = "F6 Taste"
       Case VK_F7
          Text1.Text = "Public Const VK_F7 = &H76 'F7 Taste"
          Label1.Caption = "F7 Taste"
       Case VK_F8
          Text1.Text = "Public Const VK_F8 = &H77 'F8 Taste"
          Label1.Caption = "F8 Taste"
       Case VK_F
          Text1.Text = "Public Const VK_F9 = &H78 'F9 Taste"
          Label1.Caption = "F9 Taste"
       Case VK_F10
          Text1.Text = "Public Const VK_F10 = &H79 'F10 Taste"
          Label1.Caption = "F10 Taste"
       Case VK_F11
          Text1.Text = "Public Const VK_F11 = &H7A 'F11 Taste"
          Label1.Caption = "F11 Taste"
       Case VK_F12
          Text1.Text = "Public Const VK_F12 = &H7B 'F12 Taste"
          Label1.Caption = "F12 Taste"
       Case VK_F13
          Text1.Text = "Public Const VK_F13 = &H7C 'F13 Taste"
          Label1.Caption = "F13 Taste"
       Case VK_F14
          Text1.Text = "Public Const VK_F14 = &H7D 'F14 Taste"
          Label1.Caption = "F14 Taste"
       Case VK_F15
          Text1.Text = "Public Const VK_F15 = &H7E 'F15 Taste"
          Label1.Caption = "F15 Taste"
       Case VK_F16
          Text1.Text = "Public Const VK_F16 = &H7F 'F16 Taste"
          Label1.Caption = "F16 Taste"
       Case VK_F17
          Text1.Text = "Public Const VK_F17 = &H80 'F17 Taste"
          Label1.Caption = "F17 Taste"
       Case VK_F18
          Text1.Text = "Public Const VK_F18 = &H81 'F18 Taste"
          Label1.Caption = "F18 Taste"
       Case VK_F19
          Text1.Text = "Public Const VK_F19 = &H82 'F19 Taste"
          Label1.Caption = "F19 Taste"
       Case VK_F20
          Text1.Text = "Public Const VK_F20 = &H83 'F20 Taste"
          Label1.Caption = "F20 Taste"
       Case VK_F21
          Text1.Text = "Public Const VK_F21 = &H84 'F21 Taste"
          Label1.Caption = "F21 Taste"
       Case VK_F22
          Text1.Text = "Public Const VK_F22 = &H85 'F22 Taste"
          Label1.Caption = "F22 Taste"
       Case VK_F23
          Text1.Text = "Public Const VK_F23 = &H86 'F23 Taste"
          Label1.Caption = "F23 Taste"
       Case VK_F24
          Text1.Text = "Public Const VK_F24 = &H87 'F24 Taste"
          Label1.Caption = "F24 Taste"
       Case VK_NUMLOCK
          Text1.Text = "Public Const VK_NUMLOCK = &H90 'Numlock Taste"
          Label1.Caption = "Numlock Taste"
       Case VK_OEM_SCROLL
          Text1.Text = "Public Const VK_OEM_SCROLL = &H91 'Scroll Lock"
          Label1.Caption = "Scroll Lock"
       Case VK_LSHIFT
          Text1.Text = "Public Const VK_LSHIFT = &HA0 'Linke Shift-Taste"
          Label1.Caption = "Linke Shift-Taste"
       Case VK_RSHIFT
          Text1.Text = "Public Const VK_RSHIFT = &HA1 'Rechte Shift-Taste"
          Label1.Caption = "Rechte Shift-Taste"
       Case VK_LCONTROL
          Text1.Text = "Public Const VK_LCONTROL = &HA2 'Linke STRG-Taste"
          Label1.Caption = "Linke STRG-Taste"
       Case VK_RCONTROL
          Text1.Text = "Public Const VK_RCONTROL = &HA3 'Rechte STRG-Taste"
          Label1.Caption = "Rechte STRG-Taste"
       Case VK_LMENU
          Text1.Text = "Public Const VK_LMENU = &HA4 'Linke ALT-Taste"
          Label1.Caption = "Linke ALT-Taste"
       Case VK_RMENU
          Text1.Text = "Public Const VK_RMENU = &HA5 'Rechte ALT-Taste"
          Label1.Caption = "Rechte ALT-Taste"
       Case VK_OEM_COMMA
          Text1.Text = "Public Const VK_OEM_COMMA = &HBC ',  Kommataste"
          Label1.Caption = ",  Kommataste"
       Case VK_OEM_4
          Text1.Text = "Public Const VK_OEM_4 = &HDB 'ß  Taste"
          Label1.Caption = "ß  Taste"
       Case VK_OEM_5
          Text1.Text = "Public Const VK_OEM_5 = &HDC '^  Taste"
          Label1.Caption = "^ Taste"
       Case VK_OEM_6
          Text1.Text = "Public Const VK_OEM_6 = &HDD '´  Taste"
          Label1.Caption = "´ Taste"
       Case VK_PLUS
          Text1.Text = "Public Const VK_PLUS = &HBB '+  Plustaste"
          Label1.Caption = "+  Plustasate"
       Case VK_MINUS
          Text1.Text = "Public Const VK_MINUS = &HBD '-  Minustaste"
          Label1.Caption = "-  Minustaste"
       Case VK_RAUTE
          Text1.Text = "Public Const VK_RAUTE = &HBF '# Raute"
          Label1.Caption = "# Raute"
       Case VK_DOT
          Text1.Text = "Public Const VK_DOT = &HBE '. Punkttaste"
          Label1.Caption = ". Punkttaste"
       Case VK_OE
          Text1.Text = "Public Const VK_OE = &HC0 'Taste Ö"
          Label1.Caption = "Taste Ö"
       Case VK_UE
          Text1.Text = "Public Const VK_UE = &HBA 'Taste Ü"
          Label1.Caption = "Taste Ü"
       Case VK_AE
          Text1.Text = "Public Const VK_AE = &HDE 'Taste Ä"
          Label1.Caption = "Taste Ä"
       Case VK_ICO_F17
          Text1.Text = "Public Const VK_ICO_F17 = &HE0 " & _
          "'F17 einer Olivette Tastatur (Intern)"
          Label1.Caption = "F17 einer Olivette Tastatur (Intern)"
       Case VK_ICO_F18
          Text1.Text = "Public Const VK_ICO_F18 = &HE1 " & _
          "'F18 einer Olivette Tastatur (Intern)"
          Label1.Caption = "F18 einer Olivette Tastatur (Intern)"
       Case VK_OEM102
          Text1.Text = "Public Const VK_OEM102 = &HE2 '<  Taste " & _
          "oder | Taste einer IBM-Kompatiblen 102 Tastatur (Nicht US)"
          Label1.Caption = "<  Taste"
       Case VK_ICO_HELP
          Text1.Text = "Public Const VK_ICO_HELP = &HE3 " & _
          "'Hilfetaste einer Olivetti Tastatur (Intern)"
          Label1.Caption = "Hilfetaste einer Olivetti Tastatur (Intern)"
       Case VK_ICO_00
          Text1.Text = "Public Const VK_ICO_00 = &HE4 " & _
          "'00 Taste einer Olivetti Tastatur (Intern)"
          Label1.Caption = "00 Taste einer Olivetti Tastatur (Intern)"
       Case VK_ICO_CLEAR
          Text1.Text = "Public Const VK_ICO_CLEAR = &HE6 " & _
          "'Löschen Taste einer Olivetti Tastatur (Intern)"
          Label1.Caption = "Löschen Taste einer Olivetti Tastatur (Intern)"
       Case VK_OEM_RESET
          Text1.Text = "Public Const VK_OEM_RESET = &HE9 " & _
          "'Reset Taste (Nokia)"
          Label1.Caption = "Reset Taste (Nokia)"
       Case VK_OEM_JUMP
          Text1.Text = "Public Const VK_OEM_JUMP = &HEA " & _
          "'Springen Taste (Nokia)"
          Label1.Caption = "Springen Taste (Nokia)"
       Case VK_OEM_PA1
          Text1.Text = "Public Const VK_OEM_PA1 = &HEB 'PA1 Taste (Nokia)"
          Label1.Caption = "PA1 Taste (Nokia)"
       Case VK_OEM_PA2
          Text1.Text = "Public Const VK_OEM_PA2 = &HEC 'PA2 Taste (Nokia)"
          Label1.Caption = "PA2 Taste (Nokia)"
       Case VK_OEM_PA3
          Text1.Text = "Public Const VK_OEM_PA3 = &HED 'PA3 Taste (Nokia)"
          Label1.Caption = "PA3 Taste (Nokia)"
       Case VK_OEM_WSCTRL
          Text1.Text = "Public Const VK_OEM_WSCTRL = &HEE " & _
          "'WSCTRL Taste (Nokia)"
          Label1.Caption = "WSCTRL Taste (Nokia)"
       Case VK_OEM_CUSEL
          Text1.Text = "Public Const VK_OEM_CUSEL = &HEF " & _
          "'WSCTRL Taste (Nokia)"
          Label1.Caption = "WSCTRL Taste (Nokia)"
       Case VK_OEM_ATTN
          Text1.Text = "Public Const VK_OEM_ATTN = &HF0 " & _
          "'ATTN Taste (Nokia)"
          Label1.Caption = "ATTN Taste (Nokia)"
       Case VK_OEM_FINNISH
          Text1.Text = "Public Const VK_OEM_FINNISH = &HF1 " & _
          "'Fertig Taste (Nokia)"
          Label1.Caption = "Fertig Taste (Nokia)"
       Case VK_OEM_COPY
          Text1.Text = "Public Const VK_OEM_COPY = &HF2 " & _
          "'Kopieren Taste (Nokia)"
          Label1.Caption = "Kopieren Taste (Nokia)"
       Case VK_OEM_AUTO
          Text1.Text = "Public Const VK_OEM_AUTO = &HF3 " & _
          "'Auto Taste (Nokia)"
          Label1.Caption = "Auto Taste (Nokia)"
       Case VK_OEM_ENLW
          Text1.Text = "Public Const VK_OEM_ENLW = &HF4 " & _
          "'ENLW Taste (Nokia)"
          Label1.Caption = "ENLW Taste (Nokia)"
       Case VK_OEM_BACKTAB
          Text1.Text = "Public Const VK_OEM_BACKTAB = &HF5 " & _
          "'BackTab Taste (Nokia)"
          Label1.Caption = "BackTab Taste (Nokia"
       Case VK_ATTN
          Text1.Text = "Public Const VK_ATTN = &HF6 'ATTN-Taste"
          Label1.Caption = "ATTN-Taste"
       Case VK_CRSEL
          Text1.Text = "Public Const VK_CRSEL = &HF7 'CRSEL-Taste"
          Label1.Caption = "CRSEL-Taste"
       Case VK_EXSEL
          Text1.Text = "Public Const VK_EXSEL = &HF8 'EXSEL-Taste"
          Label1.Caption = "EXSEL-Taste"
       Case VK_EREOF
          Text1.Text = "Public Const VK_EREOF = &HF9 'EREOF-Taste"
          Label1.Caption = "EREOF-Taste"
       Case VK_PLAY
          Text1.Text = "Public Const VK_PLAY = &HFA 'PLAY-Taste"
          Label1.Caption = "PLAY-Taste"
       Case VK_ZOOM
          Text1.Text = "Public Const VK_ZOOM = &HFB 'ZOOM-Taste"
          Label1.Caption = "ZOOM-Taste"
       Case VK_NONAME
          Text1.Text = "Public Const VK_NONAME = &HFC 'NONAME-Taste"
          Label1.Caption = "NONAME-Taste"
       Case VK_PA1
          Text1.Text = "Public Const VK_PA1 = &HFD 'PA1-Taste"
          Label1.Caption = "PA1-Taste"
       Case VK_OEM_CLEAR
          Text1.Text = "Public Const VK_OEM_CLEAR = &HFE " & _
          "'OEM_CLEAR-Taste"
          Label1.Caption = "OEM_CLEAR-Taste"
    End Select
End Sub

Option Explicit
 
 
'Public Declare Function GetKeyState Lib "user32.dll" _
              (ByVal nVirtKey As Long) _
               As Integer
 
 
 
'keybd_event dwFlags-Konstanten
Public Const KEYEVENTF_EXTENDEDKEY = &H1
   'Erweiterte Tastatureingabe
Public Const KEYEVENTF_KEYUP = &H2
   'Die angegebene Taste wird losgelassen
 
'GetAsyncKeyState vKey-Konstanten
Public Const VK_LBUTTON = &H1 'Linker Mausbutton
Public Const VK_RBUTTON = &H2 'Rechter Mausbutton
Public Const VK_MBUTTON = &H4 'Mittlerer Masubutton
Public Const VK_BACK = &H8 'Backspace Taste
Public Const VK_TAB = &H9 'Tab Taste
Public Const VK_CLEAR = &HC
   'Numpad 5 ohne Numlock
Public Const VK_RETURN = &HD 'Enter Taste
Public Const VK_SHIFT = &H10 'Shift Taste
Public Const VK_CONTROL = &H11 'STRG Taste
Public Const VK_MENU = &H12 'Alt Taste
Public Const VK_PAUSE = &H13 'Pause/Untbr
Public Const VK_CAPITAL = &H14
   'Caps Lock/Feststelltaste
Public Const VK_ESCAPE = &H1B 'Escape
Public Const VK_SPACE = &H20 'Space/Leertaste
Public Const VK_PRIOR = &H21 'PageUp/Bild hoch
Public Const VK_NEXT = &H22 'PageDown/Bild runter
Public Const VK_END = &H23 'Ende
Public Const VK_HOME = &H24 'Home/Pos1
Public Const VK_LEFT = &H25 'Linke Pfeiltaste
Public Const VK_UP = &H26 'Obere Pfeilaste
Public Const VK_RIGHT = &H27 'Rechte Pfeiltaste
Public Const VK_DOWN = &H28 'Untee Pfeiltaste
Public Const VK_PRINT = &H2A
   'Drucken (Nokia Tastaturen)
Public Const VK_SNAPSHOT = &H2C 'Drucken/S-Abf
Public Const VK_INSERT = &H2D 'Einfügen
Public Const VK_DELETE = &H2E 'Entfernen
Public Const VK_HELP = &H2F 'Hilfe
Public Const VK_0 = &H30 'Taste 0
Public Const VK_1 = &H31 'Taste 1
Public Const VK_2 = &H32 'Taste 2
Public Const VK_3 = &H33 'Taste 3
Public Const VK_4 = &H34 'Taste 4
Public Const VK_5 = &H35 'Taste 5
Public Const VK_6 = &H36 'Taste 6
Public Const VK_7 = &H37 'Taste 7
Public Const VK_8 = &H38 'Taste 8
Public Const VK_9 = &H39 'Taste 9
Public Const VK_A = &H41 'Taste A
Public Const VK_B = &H42 'Taste B
Public Const VK_C = &H43 'Taste C
Public Const VK_D = &H44 'Taste D
Public Const VK_E = &H45 'Taste E
Public Const VK_F = &H46 'Taste F
Public Const VK_G = &H47 'Taste G
Public Const VK_H = &H48 'Taste H
Public Const VK_I = &H49 'Taste I
Public Const VK_J = &H4A 'Taste J
Public Const VK_K = &H4B 'Taste K
Public Const VK_L = &H4C 'Taste L
Public Const VK_M = &H4D 'Taste M
Public Const VK_N = &H4E 'Taste N
Public Const VK_O = &H4F 'Taste O
Public Const VK_P = &H50 'Taste P
Public Const VK_Q = &H51 'Taste Q
Public Const VK_R = &H52 'Taste R
Public Const VK_S = &H53 'Taste S
Public Const VK_T = &H54 'Taste T
Public Const VK_U = &H55 'Taste U
Public Const VK_V = &H56 'Taste V
Public Const VK_W = &H57 'Taste W
Public Const VK_X = &H58 'Taste X
Public Const VK_Y = &H59 'Taste Y
Public Const VK_Z = &H5A 'Taste Z
Public Const VK_STARTKEY = &H5B 'Startmenütaste
Public Const VK_CONTEXTKEY = &H5D 'Kentextmenü
Public Const VK_NUMPAD0 = &H60 'Numpad Taste 0
Public Const VK_NUMPAD1 = &H61 'Numpad Taste 1
Public Const VK_NUMPAD2 = &H62 'Numpad Taste 2
Public Const VK_NUMPAD3 = &H63 'Numpad Taste 3
Public Const VK_NUMPAD4 = &H64 'Numpad Taste 4
Public Const VK_NUMPAD5 = &H65 'Numpad Taste 5
Public Const VK_NUMPAD6 = &H66 'Numpad Taste 6
Public Const VK_NUMPAD7 = &H67 'Numpad Taste 7
Public Const VK_NUMPAD8 = &H68 'Numpad Taste 8
Public Const VK_NUMPAD9 = &H69 'Numpad Taste 9
Public Const VK_MULTIPLY = &H6A
   'Numpad Multiplikations Taste (*)
Public Const VK_ADD = &H6B
   'Numpad Additions Taste (+)
Public Const VK_SUBTRACT = &H6D
   'Numpad Subtrations Taste (-)
Public Const VK_DECIMAL = &H6E
   'Numpad Komma Taste (,)
Public Const VK_DIVIDE = &H6F
   'Numpad Devidierungs Taste (/)
Public Const VK_F1 = &H70 'F1 Taste
Public Const VK_F2 = &H71 'F2 Taste
Public Const VK_F3 = &H72 'F3 Taste
Public Const VK_F4 = &H73 'F4 Taste
Public Const VK_F5 = &H74 'F5 Taste
Public Const VK_F6 = &H75 'F6 Taste
Public Const VK_F7 = &H76 'F7 Taste
Public Const VK_F8 = &H77 'F8 Taste
Public Const VK_F9 = &H78 'F9 Taste
Public Const VK_F10 = &H79 'F10 Taste
Public Const VK_F11 = &H7A 'F11 Taste
Public Const VK_F12 = &H7B 'F12 Taste
Public Const VK_F13 = &H7C 'F13 Taste
Public Const VK_F14 = &H7D 'F14 Taste
Public Const VK_F15 = &H7E 'F15 Taste
Public Const VK_F16 = &H7F 'F16 Taste
Public Const VK_F17 = &H80 'F17 Taste
Public Const VK_F18 = &H81 'F18 Taste
Public Const VK_F19 = &H82 'F19 Taste
Public Const VK_F20 = &H83 'F20 Taste
Public Const VK_F21 = &H84 'F21 Taste
Public Const VK_F22 = &H85 'F22 Taste
Public Const VK_F23 = &H86 'F23 Taste
Public Const VK_F24 = &H87 'F24 Taste
Public Const VK_NUMLOCK = &H90 'Numlock Taste
Public Const VK_OEM_SCROLL = &H91 'Scroll Lock
Public Const VK_LSHIFT = &HA0 'Linke Shift-Taste
Public Const VK_RSHIFT = &HA1 'Rechte Shift-Taste
Public Const VK_LCONTROL = &HA2 'Linke STRG-Taste
Public Const VK_RCONTROL = &HA3 'Rechte STRG-Taste
Public Const VK_LMENU = &HA4 'Linke ALT-Taste
Public Const VK_RMENU = &HA5 'Rechte ALT-Taste
Public Const VK_OEM_COMMA = &HBC '","-Taste
Public Const VK_OEM_4 = &HDB '"ß"-Taste
Public Const VK_OEM_5 = &HDC '"^"-Taste
Public Const VK_OEM_6 = &HDD '"´"-Taste
Public Const VK_PLUS = &HBB '+
Public Const VK_MINUS = &HBD '-
Public Const VK_RAUTE = &HBF '#
Public Const VK_DOT = &HBE '"."-taste
Public Const VK_OE = &HC0 'ö
Public Const VK_UE = &HBA 'ü
Public Const VK_AE = &HDE 'ä
Public Const VK_ICO_F17 = &HE0
   'F17 einer Olivette Tastatur (Intern)
Public Const VK_ICO_F18 = &HE1
   'F18 einer Olivette Tastatur (Intern)
Public Const VK_OEM102 = &HE2
   '"<"-Taste oder "|"-Taste einer
   'IBM-Kompatiblen 102 Tastatur (Nicht US)
Public Const VK_ICO_HELP = &HE3
   'Hilfetaste einer Olivetti Tastatur (Intern)
Public Const VK_ICO_00 = &HE4
   '00-Taste einer Olivetti Tastatur (Intern)
Public Const VK_ICO_CLEAR = &HE6
   'Löschen Taste einer Olivetti Tastatur (Intern)
Public Const VK_OEM_RESET = &HE9 'Reset Taste (Nokia)
Public Const VK_OEM_JUMP = &HEA 'Springen Taste (Nokia)
Public Const VK_OEM_PA1 = &HEB 'PA1 Taste (Nokia)
Public Const VK_OEM_PA2 = &HEC 'PA2 Taste (Nokia)
Public Const VK_OEM_PA3 = &HED 'PA3 Taste (Nokia)
Public Const VK_OEM_WSCTRL = &HEE 'WSCTRL Taste (Nokia)
Public Const VK_OEM_CUSEL = &HEF 'WSCTRL Taste (Nokia)
Public Const VK_OEM_ATTN = &HF0 'ATTN Taste (Nokia)
Public Const VK_OEM_FINNISH = &HF1 'Fertig Taste (Nokia)
Public Const VK_OEM_COPY = &HF2 'Kopieren Taste (Nokia)
Public Const VK_OEM_AUTO = &HF3 'Auto Taste (Nokia)
Public Const VK_OEM_ENLW = &HF4 'ENLW Taste (Nokia)
Public Const VK_OEM_BACKTAB = &HF5 'BackTab Taste (Nokia)
Public Const VK_ATTN = &HF6 'ATTN-Taste
Public Const VK_CRSEL = &HF7 'CRSEL-Taste
Public Const VK_EXSEL = &HF8 'EXSEL-Taste
Public Const VK_EREOF = &HF9 'EREOF-Taste
Public Const VK_PLAY = &HFA 'PLAY-Taste
Public Const VK_ZOOM = &HFB 'ZOOM-Taste
Public Const VK_NONAME = &HFC 'NONAME-Taste
Public Const VK_PA1 = &HFD 'PA1-Taste
Public Const VK_OEM_CLEAR = &HFE 'OEM_CLEAR-Taste