[Ti_]

oui, avec une API. Utilise le code suivant :

Private Declare Sub keybd_event Lib 'user32.dll' (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags&, ByVal dwExtraInfo&)

Property Let VerrouillageMaj(ByVal OnOff As Boolean)
'Ti
keybd_event IIf(OnOff, vbKeyCapital, vbKeyShift), 0, 0, 0
keybd_event IIf(OnOff, vbKeyCapital, vbKeyShift), 0, &H2, 0
End Property

Sub test()
VerrouillageMaj = True
End Sub