Public Class frmRechnungErstellen
    ' Deklarationen um CapsLock auszuschalten
    ' Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As 
    ' Long) As Integer
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Const VK_CAPITAL = &H14
    Private Const KEYEVENTF_KEYUP = &H2
    ' Ende Deklarationen zum CapsLock auszuschalten

    Private Sub TextBox4_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
        ' CAPS-Lock deaktivieren (falls aktiviert)
        If My.Computer.Keyboard.CapsLock = True Then
            keybd_event(VK_CAPITAL, 1, 0, 0)
            keybd_event(VK_CAPITAL, 1, KEYEVENTF_KEYUP, 0)
        End If
End Sub