Form1 Test keyboard Form1 Check1 Num Lock Check2 Caps Lock Check3 Scroll Lock Text1 Text1 Check4 Overstrike Command3 Get Locks Command1 Command1 Command2 GetKeyState nVirtKey GetAsyncKeyState GetKeyboardState LpKeyStateR Form_Click Text1 KeyType^ KeysType state Down= crlf+ Command2_Click Command1_Clickm Text1_Change Text1_KeyDown KeyCode Shift KEY_NUMLOCK Command4_Click Check2_Click Command3_Click Check1 Value False KEY_INSERT9 Check4 Key_Capital Check2 Form_Load} KEY_SCROLL Check3 NumLocked ToggleOn ToggleOff CapsLocked ScrollLocked InsertMode Check1_Click Check3_Click Check4_Click Form1 Clicked Timer1_Timer Timer1 enabled Start EndTime StartTimeA FinalTime" Command2_Click Command3_Click Check1_Click {NUMLOCK}" Check2_Click {CAPSLOCK} Check3_Click {SCROLLLOCK} Check4_Click {INSERT} Form_Click Time GetKeyState = "t Time GetKeyboardState = t SendKeys "{CAPSLOCK}"e x = DoEvents() Beep Command1_Click {CAPSLOCK}