Visual Basic - Otra vez ayuda, CAPSLOCK con API??

Alguien sabe como simular el CAPSLOCK con API, este codigo que me pasaron ayer sirve para el NUMLOCK...

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Sub SendNumLock()

Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Const VK_NUMLOCK = &H90

keybd_event VK_NUMLOCK, vbKeyNumlock, KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event VK_NUMLOCK, vbKeyNumlock, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End Sub

Pero no conseguí que funcione para el CAPSLOCK, alguien podria ayudarme por favor?, muchas gracias.

Es facil encontrar eso en Google

Const VK_CAPSLOCK = &H14

Este no prende el foco del teclado, pero si funciona