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