如何在VB.NET中切换Caps Lock？

Imports System.Runtime.InteropServices

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

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If GetKeyState(CapsLock) = 1 Then
            MsgBox("Caps Lock is ON")
        Else
            MsgBox("Caps Lock is OFF")
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If GetKeyState(CapsLock) = 1 Then
            MsgBox("Caps Lock is ON")
        Else
            MsgBox("Caps Lock is OFF")
        End If
    End Sub
End Class