se for no form seria assim

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown, AltDown, CtrlDown
ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKeyF2 Then ' Display key combinations.
If ShiftDown And CtrlDown And AltDown Then
MsgBox "SHIFT+CTRL+ALT+F2."
ElseIf ShiftDown And AltDown Then
MsgBox "SHIFT+ALT+F2."
ElseIf ShiftDown And CtrlDown Then
MsgBox "SHIFT+CTRL+F2."
ElseIf CtrlDown And AltDown Then
MsgBox "CTRL+ALT+F2."
ElseIf ShiftDown Then
MsgBox "SHIFT+F2."
ElseIf CtrlDown Then
MsgBox "CTRL+F2."
ElseIf AltDown Then
MsgBox "ALT+F2."
ElseIf Shift = 0 Then
MsgBox "F2."
End If
End If

End Sub