Visual Basic - Problema con Bloq Num

Hola alguien me podria decir como puedo yo saber desde vb si el bloq numerico esta activado o desactivado y como hacer q se active o desactive.

muchas gracias

Agrega el siguiente código en un módulo

Option Explicit
Public Const VK_CAPITAL = &H14
Public Const VK_NUMLOCK = &H90
Public Const VK_SCROLL = &H91

Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Public kbArray As KeyboardBytes

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

Public Declare Function GetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long

Public Declare Function SetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long

Ahora en un formulario crea un Timer, ajusta su propiedad Name a TimerTeclado y su propiedad Interval a 2000. Luego agrega el siguiente
código:


Option Explicit
Private Sub TimerTeclado_Timer()
GetKeyboardState kbArray
If kbArray.kbByte(VK_NUMLOCK) = 0 Then
kbArray.kbByte(VK_NUMLOCK) = 1
Else
kbArray.kbByte(VK_NUMLOCK) = 0
End If
If kbArray.kbByte(VK_SCROLL) = 0 Then
kbArray.kbByte(VK_SCROLL) = 1
Else
kbArray.kbByte(VK_SCROLL) = 0
End If

If kbArray.kbByte(VK_CAPITAL) = 0 Then
kbArray.kbByte(VK_CAPITAL) = 1
Else
kbArray.kbByte(VK_CAPITAL) = 0
End If
SetKeyboardState kbArray
End Sub

Saludos.

En el código espuesto me ha surgido una duda;
para que se utiliza el...
Public Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Long
Veo que en esta aplicación no se utiliza.
Mi pregunta es: ¿Cuando se utiliza?