Help Me Please!!!!!

[Jason B]

Hey..
Just want to know, how do you see if the caps little is on or off. Also for the scroll lock and the num lock. Please help me as this is urgent!

Cheers


Jason

[_bman_]

Public Declare Function GetKeyboardState Lib "user32" _(pbKeyState As Byte) As Long

Public Const VK_NUMLOCK = &H90
Public Const VK_SCROLL = &H91
Public Const VK_CAPITAL = &H14



    Dim x As Long, keyarray(256) As Byte
    
    x = GetKeyboardState(keyarray(0))
    If keyarray(VK_NUMLOCK) = 1 Then: MsgBox "numlock on"
    If keyarray(VK_SCROLL) = 1 Then: MsgBox "scroll lock on"
    If keyarray(VK_CAPITAL) = 1 Then: MsgBox "caps on"

should work

[Edited by _bman_ on 04-26-2000 at 10:50 AM]