How to check the CAPSLOCK ON or OFF with VB 6