În primul rând, vă mulțumesc pentru acest subiect că mi-a ajutat să îmi îmbunătățesc proiectul. Iată ce trebuie să schimb pentru ca acest cod să funcționeze corect pentru mine folosind VS2017.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Short
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Short
On Error Resume Next
Dim Pressed As Integer
Dim key As String