RE: Keycode 13, SI ES POSIBLE, AQUI DIGO COMO
Soy demasiado curioso, y cuando lei este mensaje, dije, claro que si es posible diferenciar los 2 enters, asi que agarre mi manualito de Apis, y espero que este ejemplo les funcione bien a todos.
Yo lo he probado en 2 computadoras y funciona perfectamente, si no funciona me dicen:
La ide es la siguiente, con el SetWindowsHookEx, interceptamos todas las teclas que se mandan a nuestra form, y con el wPaam nos damos cuenta que letra es, si la Letra es 13 (Enter), entonces pasamos a checar el lParam, busque que es exactamente lo que devuelve la variable en este caso y no lo encontre, yo supongo que en este caso devuelve el "codigo" de la tecla o algo asi, lo cierto es que tiene un codigo cuando "precionamos" la tecla, y otro cuando "liberamos" la tecla, yo en el ejemplo uso cuando liberamos la tecla.
Espero les sirva, yo he encontrado esta codigo muy util, ya que incluso se pueden diferenciar todas las teclas que precionas, incluyendo los Shift, Alt, Control, izquierdo, derecho, etc.. y TARAN tambien podemos diferenciar la tecla de Windows, en Resumen, podemos saber exactamente que tecla es y espero les sirva.
'En un modulo
Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function