- 01 Mar 2017 às 22:22
#20648
@vilc, Tudo bem?
Não consegui entender exatamente qual sua necessidade (as vezes, comentando a necessidade, é possível que surjam ideias para facilitar sua vida). Inclusive se tiver um modelo, ajuda no nosso entendimento.
Fiz um exercício rápido, porém utilizando um "Form" como apoio.
Dentro desse Form, realizei os comandos:
============================================
'quando o cursor estiver em cima do botão aplica um efeito
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.BackColor = 1
End Sub
'quando sair do botão, retoma a configuração inicial
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm1.BackColor = &H80000016
End Sub
============================================
Espero que te ajude.
Você não está autorizado a ver ou baixar esse anexo.