[Resolvido]Desativar tecla

Quero desativar a tecla Num Lock, para o que o não seja desligada
estou tentando da seguinte forma

If KeyCode = 144 Then
MsgBox "A tecla NUM LOCK,não pode ser desativada! ", vbExclamation, "Erro Sistema!"
KeyCode = 0

End If
End Sub
mas não deu certo ,não posso desativar o visualizar teclas do formulário,pois ele é necessário

Qual a finalidade de não permitir a desativação?

Dependendo da sua resposta, talvez seja necessário seguir com outra ideia, pois nada impede o usuário de mudar o foco para outra janela de um programa qualquer, desativar a tecla NumLock e voltar ao seu programa.

Sistema de vendas trabalha com campo Código barras , e se o usuário desativar a Num Lock ,poderá gerar erro
Então gostaria que não fosse possível o usuário desativa-la.

Cole isso em um módulo global

Código:

#If VBA7 Then
   public Declare PtrSafe Function GetKeyState Lib "user32"(ByVal nVirtKey As Long) As Long
#Else
   Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
#End If

E use o código abaixo no evento "ao apertar tecla" do formulário

Código:

If GetKeyState(vbKeyNumlock) = 0 Then Call CreateObject("WScript.shell").SendKeys("{NumLock}")

També tem a possibilidade de usar a técnica da mensagem abaixo
https://www.maximoaccess.com/t237-como-bloquear-teclas-ctrlc-altprtsc-shift-etc#1291

ótimo se ela for desativa vou a ser ativada e isso?
Muito bom obrigado.