[Resolvido]Dúvida sobre exemplo: Encontrar KeyCode - código das teclas

Referente a este exemplo (muito bom!) postado pelo colega Criquio:

http://maximoaccess.forumeiros.com/t3279-encontrar-keycode-codigo-das-teclas

Tentei adaptá-lo para exibir também os código de teclas combinadas, como Ctrl+P, etc., mas não deu.

Isto seria possível?

Nesse caso, você está pressionando duas teclas. Você terá dois códigos, sendo um para cada tecla. Mas, se a intenção é usá-lo como atalho, melhor usar o SendKeys:

SendKeys "^P"

Para maiores detalhes sobre essa instrução, basta entrar em um módulo vba e pesquisá-la com o F1.

Certo, Mestre dos Magos!
[alô Harysohn]

Estava pesquisando sobre os KeyCode de teclas combinadas, e não encontrei.
Pensei usar pra simplificar a edição, como p.ex.:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift = acCtrlMask And KeyCode = vbKeyP) Then
MsgBox "Este não é um formulário imprimível."
KeyCode = 0
End If
End Sub

Obrigado por postar!

Veja aqui mais dicas sobre o KeyCode:

http://maximoaccess.forumeiros.com/t2007-resolvidoatalho-para-f3#15028

Eu juro que não tinha achado!

Beleza! Melhorou!
Até vou colar aqui:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case CtrlDown, vbKey1
Me.SeuCampo1 = "Secretaria de Administração"
Case CtrlDown, vbKey2
Me.SeuCampo2 = "Secretaria"
Case CtrlDown, vbKey3
Me.SeuCampo3 = "Secr"
End Select
End Sub

Obrigado pela audiência!