VB6-Capturing Caps Lock, Scroll Lock, Num Lock and Insert Key Status

[ganeshmoorthy]

'Include this line in your General Declaration of a Form
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
'Add a command button to your form and paste this code into it
Private Sub Command1_Click()
    If GetKeyState(vbKeyCapital) = 0 Then
        MsgBox "Capital OFF"
    Else
        MsgBox "Capital ON"
    End If
    If GetKeyState(vbKeyNumlock) = 0 Then
        MsgBox "NumLock OFF"
    Else
        MsgBox "NumLock ON"
    End If
    If GetKeyState(vbKeyInsert) = 0 Then
        MsgBox "Insert OFF"
    Else
        MsgBox "Insert ON"
    End If
    If GetKeyState(vbKeyScrollLock) = 0 Then
        MsgBox "Scroll Lock OFF"
    Else
        MsgBox "Scroll Lock ON"
    End If
End Sub

A sample project with this code and a timer to update the key status in the labels, attached in zip file format.