Salut
Utilise plutôt GetKeyState :
Cette fonction te renverra True si le Shift est enfoncé :
Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Function ToucheShiftEnfoncée() As Boolean
If GetKeyState(VK_SHIFT) = -127 Or _
GetKeyState(VK_SHIFT) = -128 Then
ToucheShiftEnfoncée = True
Else
ToucheShiftEnfoncée = False
End If
End Function
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)