В данном примере свойство Перехват нажатия клавиш (KeyPreview) получает значение True (– 1 ) в процедуре обработки события формы Загрузка (Load). В результате события клавиатуры принимаются формой, прежде чем они будут приняты каким-либо элементом управления. В процедуре обработки события формы Клавиша вниз (KeyDown) выполняется проверка значения аргумента «KeyCode», чтобы определить, какая клавиша была нажата: F2, F3 или F4.

Private Sub Form_Load()
	Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
	Select Case KeyCode
		Case vbKeyF2
			 ' Обработка событий клавиши F2.
 
		Case vbKeyF3
			 ' Обработка событий клавиши F3.
 
		Case vbKeyF4
			 ' Обработка событий клавиши F4.
 
		Case Else
	End Select
End Sub

В данном примере проверяется, какая клавиша нажата: SHIFT, CTRL или ALT.
Для проверки работы данного примера следует добавить процедуру обработки события в форму, содержащую поле «ДрайверКлавиатуры».

Private Sub ДрайверКлавиатуры_KeyDown(KeyCode As Integer, Shift As Integer)
	Dim intShiftDown As Integer, intAltDown As Integer
	Dim intCtrlDown As Integer

	 ' Определяет нажатую клавишу с помощью поразрядной маски.
 
	intShiftDown = (Shift And acShiftMask) >  0 
	intAltDown = (Shift And acAltMask) >  0 
	intCtrlDown = (Shift And acCtrlMask) >  0 
	 ' Выводит сообщение о нажатой клавише.
 
	If intShiftDown Then MsgBox "Нажата клавиша SHIFT."
	If intAltDown Then MsgBox "Нажата клавиша ALT."

If intCtrlDown Then MsgBox "Нажата клавиша CTRL."
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
If (Shift And acCtrlMask) >  0  And KeyCode = vbKeyP Then MsgBox ("опаньки"