| 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
 
 |