Descrição:
Como disparar o evento Click() de um objeto Botão com o botão direto do mouse?
Solução:
Para isso, deve-se escrever um script no evento MouseUp do Botão, e no parâmetro Button desse evento, verificar se o seu valor é igual a 2 (indicando que é o botão direito). Por exemplo:
Sub CommandButton1_MouseUp(Button, Shift, X, Y)
If Button = 2 Then
MsgBox “Evento disparado!”
Een If
End Sub
