[VB6] Intercettare la combinazione di due tasti

[Ranch]

Sto provando a fare così ma purtroppo, il codice viene eseguito anche con la pressione di un solo tasto e non con la combinazione dei tre!!!!
dove stò sbagliando?????

Private Sub Numerico_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If Index = 45 Then
        If KeyCode = vbKeyControl And vbKeyShift And vbKeyF1 Then
            Form1.Height = 10845
        End If
    End If
End Sub