Module Module1
 
 
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    'UPGRADE_NOTE: cChar wurde aktualisiert auf cChar_Renamed. Klicken Sie hier 
    ' für weitere Informationen: 
    ' 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="A9E4979A-" & _
    "7FA-4718-9994-97DD76ED70A7"'
    Private Declare Function VkKeyScan Lib "User32" Alias "VkKeyScanA" (ByVal _
    cChar_Renamed As Byte) As Short
    Private Declare Function MapVirtualKey Lib "User32" Alias "MapVirtualKeyA" ( _
    ByVal wCode As Integer, ByVal wMapType As Integer) As Integer
    ' benötigte API-Deklarationen
 
 
 
    Private Const KEYEVENTF_KEYUP As Integer = &H2
    Private Const KEYEVENTF_EXTENDEDKEY As Integer = &H1
 
    ' Virtual KeyCodes
    Private Enum eVirtualKeyCode
        VK_BAK = &H8
        VK_TAB = &H9
        VK_CLEAR = &HC
        VK_RETURN = &HD
        VK_SHIFT = &H10
        VK_CONTROL = &H11
        VK_MENU = &H12
        VK_PAUSE = &H13
        VK_CAPITAL = &H14
        VK_ESCAPE = &H1B
        VK_PRIOR = &H21
        VK_NEXT = &H22
        VK_END = &H23
        VK_HOME = &H24
        VK_LEFT = &H25
        VK_UP = &H26
        VK_RIGHT = &H27
        VK_DOWN = &H28
        VK_SELECT = &H29
        VK_SNAPSHOT = &H2C ' NEU! Windows-Taste
        VK_INSERT = &H2D
        VK_DELETE = &H2E
        VK_HELP = &H2F
        VK_F1 = &H70
        VK_F2 = &H71
        VK_F3 = &H72
        VK_F4 = &H73
        VK_F5 = &H74
        VK_F6 = &H75
        VK_F7 = &H76
        VK_F8 = &H77
        VK_F9 = &H78
        VK_F10 = &H79
        VK_F11 = &H7A
        VK_F12 = &H7B
        VK_F13 = &H7C
        VK_F14 = &H7D
        VK_F15 = &H7E
        VK_F16 = &H7F
        VK_NUMLOCK = &H90
        VK_SCROLL = &H91
        VK_WIN = &H5B ' NEU! Windows-Taste
        VK_APPS = &H5D ' NEU! Taste für Kontextmenü
    End Enum

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008