>>>>
Alguien sabe como si se puede saber, desde un programa VB, si el teclado
numérico esta activado o no.
<<<<

Declara en un módulo :

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Y para saber el estado de NumLock :

if GetKeyState(vbKeyNumlock) = 0 then
    'está desactivado
else
    'está activado
end if


Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma