Capturing CAPS lock

See if this works. It shows CAPS Lock, Scroll Lock, NumLock, and Insert status:

; keyboard State

; userlibs
; ***********************************************
; .lib "user32.dll"
; GetKeyboardState%(state*):"GetKeyboardState"
; ***********************************************

Const VK_CAPITAL = $14
Const VK_NUMLOCK = $90
Const VK_SCROLL = $91
Const VK_INSERT = $2d

kstate=CreateBank(256)

Graphics 400,300,0,2
SetFont LoadFont ("courier",20)

Repeat
	GetKeyboardState(kstate)
	Cls
	Text 10,10,"Caps       = "+PeekByte(kstate,VK_CAPITAL)
	Text 10,30,"Numlock    = "+PeekByte(kstate,VK_NUMLOCK)
	Text 10,50,"Scrolllock = "+PeekByte(kstate,VK_SCROLL)
	Text 10,70,"Insert     = "+PeekByte(kstate,VK_INSERT)
	Flip
	Delay 5
Until KeyHit(1)

End