NumLockKey

In my VB6 program, the NumLock key is used as an function key. Numlock self has always to be ON. I do it in the moment with: If Not CBool(GetKeyState(vbKeyNumlock)) Then keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If this works, but unfortunately this Routine send two time the keycode and this results und two time pressed a function key. I need a clss/dll/whatever to have Numlock allways ON and to get ONE KeyDown event