Combinación Shift + F4 con KeyCode

Hola,

estoy intentando controlar la combinación de teclas Shift + F4 mediante código, pero no me funciona:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 1 And KeyCode = 17 Then ' Shift+F4
MsgBox "Shift+F4"
End If
End Sub

Además, la propiedad KeyPreview = true del formulario.

Gracias y un saludo