Olá.

Freqüentemente deparo com problemas junto ao teclado numérico, sempre que habilito a propriedade KeyPreview do form para <True> e, no evento KeyPress do form entro com a rotina:

If KeyAscii = vbKeyReturn then

SendKeys ("{TAB}")

End if

(o usuário do meu programa está acostumado a tabular entre os campos do form pressionando <Enter>).

A tecla NumLock acende e apaga alternadamente, impedindo a digitação de números em determinados campos (pelo teclado numérico).

Alguém sabe aí alguma rotina que impeça o desligamento dessa tecla? Ou que mantenha seu valor constantemente ativado?

Agradeço a colaboração. Chico.

 

coloque isso em um timer e defina de quanto em quanto tempo vc quer que ele verifica.

If vbKeyNumlock = False Then
    vbKeyNumlock = True
End If

chico desculpe, fui tentar fazer aqui agora,nao funciona

Tenta essa dica:

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=2995&Classificacao=

essa dica nao funcionou comigo