Private Declare Sub keybd_event Lib "user32" (bVk As Byte, bScan As Byte, _
  dwFlags As Integer, dwExtraInfo As Integer)
 
If My.Computer.Keyboard.CapsLock Then
  keybd_event(20, 0, 0, 0)
  keybd_event(20, 0, 2, 0)
End If

If My.Computer.Keyboard.CapsLock Then
  My.Computer.Keyboard.SendKeys("{CAPSLOCK}")
End If

Imports System.Runtime.InteropServices
Public Class Form1
 
    <DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _
           CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", _
           ExactSpelling:=True, SetLastError:=True)> _
    Public Shared Function keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, _
                              ByVal dwFlags As Int32, ByVal dwExtraInfo As _
                              Int32) As Boolean
    End Function
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) _
      As Integer
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As _
    Long) As Integer
 
    Sub SetCaps(ByVal Status As Boolean)
        If Not CBool(GetKeyState(System.Windows.Forms.Keys.CapsLock)) = Status _
          Then
            keybd_event(System.Windows.Forms.Keys.CapsLock, 0, 0, 0)
            keybd_event(System.Windows.Forms.Keys.CapsLock, 0, 2, 0)
        End If
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        SetCaps(False) ' Hier Werte ändern...!
    End Sub
End Class

If Control.IsKeyLocked(Keys.CapsLock) Then
  keybd_event(...
  keybd_event(...       
End If