CapsLock and NumLock

On a form, add a 3 command buttons (cmdToggle, cmdTurnOff, cmdTurnOff) and a label. Add the following code to the form:
Private Function CapsLock() As Integer
	CapsLock = GetKeyState(VK_CAPITAL) And 1 = 1
End Function
Private Sub Form_Load()
	If CapsLock() = 1 Then Label1 = "On" Else Label1 = "Off"
End Sub
Private Sub cmdToggle_Click()
	GetKeyboardState kbArray
	kbArray.kbByte(VK_CAPITAL) = IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)
	SetKeyboardState kbArray
	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub
Private Sub cmdTurnOn_Click()
	GetKeyboardState kbArray
	kbArray.kbByte(VK_CAPITAL) = 1
	SetKeyboardState kbArray
	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub
Private Sub cmdTurnOff_Click()
	GetKeyboardState kbArray
	kbArray.kbByte(VK_CAPITAL) = 0
	SetKeyboardState kbArray
	Label1 = IIf(CapsLock() = 1, "On", "Off")
End Sub