çoklu command buton renklendirme

[OKUROGLU3375]

Selamlar;
Userform üzerinde yaklaşık 67 adet link tanımlanmış Command buton var.
Command buton üzerine geldiğimde renk değişmesini 1 adet üzerinde yapabiliyorum, fakat çoklu olarak yapamıyor. 67 adet ile ayrı ayrı tanımlama yerine toplu olarak bir kod yazmamız mümkün mü?
Kullanmış olduğum örnek kod aşağıdadır.
Yardımlarınız için teşekkür ederim. (OKUROGLU3375)

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

Private Sub UserForm_Initialize()
CommandButton1.Tag = CommandButton1.BackColor
End Sub

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

 

[OKUROGLU3375]

----------

 

[Haluk]

Ekli dosyadaki gibi Class Module kullanırsanız, her bir CommandButton için ayrı ayrı kod yazmaya gerek kalmaz.

.

 

[OKUROGLU3375]

HALUK BEY DOSYAYI İNDİRME YETKİM YOK MAALESEF... MÜMKÜNSE dosyatc... yüklemeniz mümkün mü?

 

[Haluk]

Dosyanızı aşağıdaki linkten indirebilirsiniz.

https://drive.google.com/open?id=1Gd6vRwapfaI9kRb0_6Vg3rEats-1n3XU

.

 

[OKUROGLU3375]

Haluk bey ellerinize sağlık.... Teşekkür ederim yardımlarınız için... (okuroglu3375)

 

[Haluk]

Kolay gelsin....

.