Här ett exempel där jag har 3 CommandButton (cmdMeny) i en controlarray.
Sätter deras Style propertie till 1 Graphic i IDE Designläge.
Sätter Tag propertie till "Hover0" , "Hover1" , "Hover2" osv osv så många du har.

Option Explicit
Private Sub Form_MouseMove(Button As Integer, _ ...
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Dim i As Long
For i = 0 To 2 'Jag vet hårdkodat att jag har 3 cmdMeny
If cmdMeny(i).BackColor = vbYellow Then cmdMeny(i).BackColor = &H8000000F
Next 'i
End Sub

Private Sub cmdMeny_MouseMove(Index As Integer, Button As Integer, _ ...
Private Sub cmdMeny_MouseMove(Index As Integer, Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Select Case cmdMeny(Index).Tag
Case "Hover0"
cmdMeny(Index).BackColor = vbYellow
Case "Hover1"
cmdMeny(Index).BackColor = vbYellow
Case "Hover2"
cmdMeny(Index).BackColor = vbYellow
End Select
End Sub