如何在VB.NET中获取Caps Lock的当前状态？

Imports System.Runtime.InteropServices

Module Module1
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True, CallingConvention:=CallingConvention.Winapi)>
    Public Function GetKeyState(ByVal keyCode As Integer) As Short
    End Function

    Sub Main()
        Const CAPS_LOCK As Integer = &H14
        Dim keyState As Short = GetKeyState(CAPS_LOCK)

        If (keyState And &H1) = 1 Then
            Console.WriteLine("Caps Lock is on.")
        Else
            Console.WriteLine("Caps Lock is off.")
        End If

        Console.ReadLine()
    End Sub
End Module