Olá, estou fazendo uma mesa de som virtual para um evento e gostaria de dar o efeito de clicado do botão. Estou fazendo mega simples, porem preciso que o botão fique apertado enquanto a musica toca e quando esta acabar o botão desaperte.
Está assim:
Private Sub CAMPAINHA_Click()
CAMPAINHA.Visible = False
WindowsMediaPlayer1.URL = ActiveWorkbook.Path & "\SONS\CAMPAINHA.mp3"
CAMPAINHA.Visible = True
End Sub
Esta é a mesa normal:
Assim eu gostaria que ela ficasse enquanto toca a musica e no fim voltasse ao normal.