VB .NET - Verificando o CapsLock, NumLock e o ScrollLock

Public Class Form1

    Private Sub btnVerificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerificar.Click

        Dim CapsLock, NumLock, ScrollLock As Boolean

        CapsLock = My.Computer.Keyboard.CapsLock

        NumLock = My.Computer.Keyboard.NumLock

        ScrollLock = My.Computer.Keyboard.ScrollLock

        If CapsLock = True Then

            chkCapsLock.Checked = True

        Else

            chkCapsLock.Checked = False

        End If

        If NumLock = True Then

            chkNumLock.Checked = True

        Else

            chkNumLock.Checked = False

        End If

        If ScrollLock = True Then

            chkScrollLock.Checked = True

        Else

            chkScrollLock.Checked = False

        End If

    End Sub

End Class

Espero ter ajudado... Abraços!