' zunächst die benötigte API-Funktion
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

' Status: CAPS-Lock
If GetKeyState(vbKeyCapital) = 1 Then _
  ' CapsLock ist aktiviert, also ausschalten
  keybd_event VK_CAPITAL, 1, 0, 0&
  keybd_event VK_CAPITAL, 1, KEYEVENTF_KEYUP, 0
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de