O commandbutton não tem o evento mouseover. mesmo que tivesse, não tem a propriedade specialeffect.

Eu sugiro, se vc quer muito dar esse efeito nos botões, pq não os substitui por imagens que pareçam eles.??
daí vc muda a imagem no mouseclick, muda a imagem no mouse over.... tendeu ?

FF

Sim, isso eu já tinha pensado, mas o problema é que o meu projeto já está todo parametrizado com os atuais botões, mas enfim, farei o que você sugestionou.

Sugestão melhorada:
Faça isso, mas para não dificultar, crie rotinas reutilizáveis...
Tipo

Sub trocarImagem(byref oImage as picture, byval NovaImagem as string)
End Sub

Algo assim, que vc pode desenvolver uma vez só, e criar as diversas chamadas dentro dos eventos...
A razão, se vc precisar mudar alguma coisinha no código, vc muda só num lugar e não em todos os botões...

Se a intenção é somente destacar o CommandButtom, pode utilizar o BackColor:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.BackColor = vbGreen
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CommandButton1.BackColor = &H8000000F
End Sub

Pessoal,

Ambas as dicas são ótimas.

Eu alterei os botões de comando pelas as "image", criei ícones legais, coloquei um efeito no mousemove (vide abaixo) e, com isso, padronizei todo o meu sistema no que refere-se a botões.

Private Sub Image37_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image37.SpecialEffect = fmSpecialEffectSunken
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Image37.SpecialEffect = fmSpecialEffectRaised

end sub

A minha dificuldade agora é dar o setfocus na "image". Como faço?

Pessoal, alguém pode ajudar-me?

Pessoal,

Buscando ser mais claro:

Ao realizar o cadastro de uma programação, o usuário preenche alguns textbox e combobox.

Eu quero que, quando o usuário preencher o ultimo textbox do cadastro e der Enter, o setfocus vá para image.

Como faço isso?

Até onde eu sei, o controle image não aceita a propriedade SetFocus, então, a não ser que alguem diga o contrário, sem chance de fazer desta forma.

[]s

Imagem não aceita setfocus...
Uma alternativa seria vc codificar o keypress do userform para identificar o enter e disparar o código da imagem...

Pois é Fernando,

De fato a imagem não aceita o setfocus, mas, pelo o que eu entendi, fazendo o que você sugestionou, o usuário ao dar o exit no ultimo textbox preenchido, automaticamente o comando contido na Imagem (Confirmar) será executado. Estou certo? Se sim, não acho uma excelente ideia, pois talvez, mesmo que o usuário tenha cadastrado todos os campos, a vontade dele ainda não é de confirmar.

Acho que, para alguns casos, manterei o CommandButton, ao invés da image.

Corrija-me se eu estiver interpretando errado.

Fernando,

Eu usei o Keydown.. veja abaixo:

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Call Password_AfterGotFocus

If KeyCode = 13 Then

''verifica se a tecla enter foi acionada.

image37_Click

End If

End Sub