Keycodes Enter+Control

Problemet er at din event behandler ét keystroke af gangen. Du er nødt til at kontrollere om begge taster er nede samtidigt, det kan du f.eks. gøre sådan her:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_CONTROL As Long = &H11
Const VK_ENTER As Long = &HD

Private Sub txtBesked_KeyDown(KeyCode As Integer, Shift As Integer)
    If (GetAsyncKeyState(VK_CONTROL) And GetAsyncKeyState(VK_ENTER) And &H8000) Then
        MsgBox "Du trykkede CTRL + ENTER!"
    End If
End Sub

Takker

Men hvad betyder det der: ...... And &H8000????

GetAsyncKeyState returnerer en long, hvor den mest betydende bit er 1 hvis tasten er trykket ned - det svarer til 8000 hexadecimalt. Så når du And'er returværdien med &H8000, får du 0 hvis tasten ikke er trykket ned ( = false ) og en værdi forskellig fra 0 (=true), her 8000 hex, hvis tasten er trykket ned.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/keyboardinputreference/keyboardinputfunctions/getasynckeystate.asp