[Resolvido]Atalho CTRL+1,2... em qualquer parte do sistema

Olá Pessoal, estou precisando de uma ajudinha com um atalho CTRL+1 para chamar um formulário em estando em qualquer lugar do sistema... estou usando a função abaixo, mas neste caso eu tenho que colocar em cada formulário para poder chamar, não teria como colocar em um módulo por exemplo? Tentei buscar isso no fórum e não encontrei...

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And (KeyCode = 49) Then DoCmd.OpenForm "cons_CR_Pop_1"
End Sub

Muito obrigado Avelino! Muito fácil... fiz e rodou certinho...