Ajuda com estabelecimento de atalhos em menu!

Question

Criei um código para estabelecer atalhos para cada botão do meu menu, mas não funciona. Não dá erro, mas também não funciona. Deem uma olhada:

Private Sub Atalhos(ByVal KeyCode As Shortcut)
        Select Case KeyCode
            Case KeyCode = 112 'F1
                btnCaixa.PerformClick()
            Case KeyCode = 113 'F2
                btnPedido.PerformClick()
            Case KeyCode = 114 'F3
                btnNovoPagamento.PerformClick()
            Case KeyCode = 115 'F4
                btnAdcRemProd.PerformClick()
            Case KeyCode = 116 'F5
                btnNovaConta.PerformClick()
            Case KeyCode = 117 'F6
                btnUsuario.PerformClick()
            Case KeyCode = 118 'F7
                btnPagamentos.PerformClick()
            Case KeyCode = 119 'F8
                btnProdCadRem.PerformClick()
            Case KeyCode = 120 'F9
                btnConsulta.PerformClick()
            Case KeyCode = 27 'ESC
                btnSair.PerformClick()
        End Select
    End Sub

Eu tinha declarado a variável do método como String, mas deu erro dizendo que não podia se convertido para Double...

Answer 1

Depura esse código pra saber se está entrando nele e qual o número que está chegando

---

Leonardo Lourenço Silva

Answer 2

Pois é, ele nem retorna nada.

Answer 3

Coloca a linha de código que chama esse método ai para analisarmos, pq ele não se AUTO EXECUTA

---

Leonardo Lourenço Silva