Read NUMLOCK / CAPSLOCK from keyboard controller

Even thoe the status of the shift or capslock is changed, doesn't mean that my input is shifted:

Const VK_CAPITAL = $14
Const VK_NUMLOCK = $90
Const VK_SCROLL = $91
Const VK_SHIFT = $10

Dim key(3)

key(0) = VK_CAPITAL
key(1) = VK_NUMLOCK
key(2) = VK_SCROLL
key(3) = VK_SHIFT

i = 3
Repeat
	api_keybd_event(key(i),0,0,0) ;key down
	api_keybd_event(key(i),0,2,0) ;key up
	a = 0 : While a = 0 : a = GetKey() : Wend
	If a > 0 Then Write Chr$(a)
	Write (api_GetKeyState(key(i)) And $FFFF)
Until KeyHit(1)

I'm trying to figure out something here, if this is because Blitz is handling the shift? This is too much, I'll have to rest... LOL!