Visual Basic - se desactiva el "Bloq Num"

Hola, de antemano muchas gracias...

En X programa tengo que teclear numeros y que a su vez buscan el dato de una persona y los desplega en una lista, pero cada vez que tecleo un numero inmediatamente de desactiva el BloqNum, y tengo que activarlo para poder teclear otro numero y es tedioso para los capturistas.

Lo que quiero es que no se desactive este tecla.

Si alguien me pudiera ayudar se lo agradecere mucho.

El programa fue desarrollado integramente en una laotop, sera por eso?

Espero me puedan ayudar.

Saludos y gracias de nuevo.

Hola, es muy raro eso que cometas, yo te digo que es dificil que pase de por si, yo creo que puede tener algo que ver lo del notebook, podrias probar el programa en un PC convencional a ver si te sigue dando ese fallo, otra opcion es que lo actives por codigo...

el codigo para activarlo es este :

en un modulo mete esto :
'----------------------------------------------------------
Declare Sub GetKeyboardState Lib "user32" (lpKeyState As Any)
Declare Sub SetKeyboardState Lib "user32" (lpKeyState As Any)
Public Const VK_CAPITAL = vbKeyCapital '&H14
Public Const VK_NUMLOCK = vbKeyNumlock '&H90
'------------------------------------------------------------

luego en el form mete esto :
'-------------------------------------------------------------
Private Sub Command1_Click()
ReDim KeyboardBuffer(256) As Byte
GetKeyboardState KeyboardBuffer(0)
'Este ejemplo muestra como pulsar el Caps Lock. Si quieres que
'presione el Num Lock, sustituye los VK_CAPITAL por VK_NUMLOCK
If KeyboardBuffer(VK_CAPITAL) And 1 Then
KeyboardBuffer(VK_CAPITAL) = 0
KeyboardBuffer(VK_NUMLOCK) = 0
KeyboardBuffer(VK_SCROLL) = 0
Else
KeyboardBuffer(VK_CAPITAL) = 1
KeyboardBuffer(VK_NUMLOCK) = 1
KeyboardBuffer(VK_SCROLL) = 1
End If
SetKeyboardState KeyboardBuffer(0)
'-------------------------------------------------------------

'aclaracion, este ultimo procedimiento lo que hace es
'activar y desactivar el tecladonumerico y el mayusculas