GetInsKey
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long ' Get the current state of the Insert key Function GetInsertKey() As Boolean GetInsertKey = GetKeyState(vbKeyInsert) End Function
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
Long
' Get the current state of the Insert key
Function GetInsertKey() As Boolean
GetInsertKey = GetKeyState(vbKeyInsert)
End Function
(getinskey.html)- by Paolo Puglisi - Modifica del 25/3/2019