Visual Basic - Activar la tecla CAPSLOCK Y NUMLOCK

Hola foro nuevamente necesito ayuda estoy buscando una rutina que permita activar las teclas CAPSLOCK y NUMLOCK

Gracias te antemano!!!!!!!
Lima-Perú

Creo que esto servirá
glOldLock = CAPSLOCK( ) && Guarda la configuración original.
= CAPSLOCK(.T.) && Activa BLOQ MAYÚS.

*** Ejecute las instrucciones que desee ***

= CAPSLOCK(glOldLock) && Vuelve a la configuración original.

*** o cambia BLOQ MAYÚS al valor opuesto y vuelve ***

= CAPSLOCK(!CAPSLOCK( ))
WAIT WINDOW
= CAPSLOCK(!CAPSLOCK( ))
WAIT WINDOW
= CAPSLOCK(glOldLock) && Vuelve a la configuración original.

Gracias pero la rutina que necesito es para VB

Estimado amigo:
En www.ambsoftware.com encontrarás un ejemplo que te muestra cómo hacerlo.
Para localizarlo te recomiendo que utilices el buscador de recursos de la página principal y escribas con acento la palabra "mayúscula".
Espero que esta información te sirva de ayuda.
Fdo.- Alvaro Marín