vbKey-Konstanten


Ein einfaches Script für die Erstellung der vbKey-Konstanten.
Laden Sie sich die Zip-Datei mit VB 6 Source Code hinunter und probieren Sie es mal aus.

Projekt - Download
 

 
© FienauBerlin   Web-ComputerEcke.de
 

Quell-Code
'Erstellen Sie folgende Steuerelemente:
'Form Form1, Label Label1, Text Text1

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

Quell-Code ModKey.bas
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