Язык Описание VBScript, JavaScript SubKeyDown(aKey, aShift) Visual Basic Sub KeyDown(ByVal aKey As Long, ByVal aShift As TIngeoShiftState) Delphi procedure KeyDown(aKey: Longint; aShift: TIngeoShiftState); C, C++ HRESULT KeyDown(long aKey, TIngeoShiftState aShift); 
sub MapEditors_KeyDown(aKey, aShift)
  if aShift = (inssShift and inssAlt and inssCtrl) then
     MsgBox "Код нажатой клавиши - " & aKey
  end if
end sub
IIngeoMapEditorsSink