KeyPress y el led del 'Bloq Num'

En un modulo bas pone esta declaracion

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = &H2
Const VK_TAB = &H9

y reemplaza el SendKeys ("{tab}") por

keybd_event VK_TAB, 0, 0, 0
keybd_event VK_TAB, 0, KEYEVENTF_KEYUP, 0

Un saludo, Víctor Koch.


"Davidbg" escribió en el mensaje
news:bdq2lj$m00$

Hola a todos.

Supongo que le habrá acurrido a más de uno.
El caso es que al ejecutar este código (para hacer que al apretar Enter,
salte de control), el led de BloqNum parpadea.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
SendKeys ("{tab}")
Case Else
End Select
End Sub

¿Alguien sabe como evitarlo?
Gracias de antemano

David