[Resolvido]Mudar cor dos limites do botão ao clicar

Olá.
Tenho um formulário MENU e apaguei os botões porque ao inserir imagem em BMP nos botões deu aviso de serem grandes e então colei as imagens no form e queria que ao clicar mudasse a cor dos limites de verde para amarelo e voltasse novamente para verde. É preciso um timer?
De momento tenho isto:

Private Sub btn_adicionar_Click()
....
Me.btn_adicionar.BorderColor = vbYellow
DoCmd.OpenForm "CONTACTOS"
End Sub

Private Sub btn_adicionar_LostFocus()
Me.btn_adicionar.BorderColor = RGB(147, 219, 112)    'cor verde
End Sub

Obrigado.

Olá Pedro.
Coloque em botoes no modo "ligado"
Crie uma sub pasta no caminho do seu projecto chamada botoes, e coloque lá os ficheiros.
Efetue uma busca aqui no fórum, não falta exemplos.

Abraço

Bom dia!

Tente assim:

Código:

Private Sub btn_adicionar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.btn_adicionar.BorderStyle = 1
    Me.btn_adicionar.BorderColor = vbYellow
End Sub

Private Sub btn_adicionar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.btn_adicionar.BorderColor = vbGreen
End Sub

Abraço.

Olá.
Com o código deu tudo bem. Obrigado Gabriel Brunichaki e ahteixeira.

Private Sub btn_adicionar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.btn_adicionar.BorderStyle = 1
   Me.btn_adicionar.BorderColor = vbYellow
End Sub

Private Sub btn_adicionar_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.btn_adicionar.BorderColor = RGB(147, 219, 112) 'cor verde
   DoCmd.OpenForm "CONTACTOS"
End Sub

Olá.
Gabriel Brunichaki, obrigado pela dica.
Pedro obrigado pelo retorno.
Abraço a todos