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