Если я хочу, чтобы абзац кода выполнялся для нескольких кнопок в форме в VBA, есть ли какой-нибудь метод?

Question

'=================================================================
'
'         close button
'
'=================================================================
Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'PURPOSE: Reset close buttons to Inactive Status
img_btn_close_normal.Visible = True
img_btn_close_pressed.Visible = False
img_btn_close_hovered.Visible = True

End Sub

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

'PURPOSE: Make close Button color like hovered when hovered on
img_btn_close_pressed.Visible = False
img_btn_close_normal.Visible = False
img_btn_close_hovered.Visible = True

End Sub
Sub img_btn_close_hovered_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'PURPOSE: Make close Button color like pressed when pressed on
img_btn_close_pressed.Visible = True
img_btn_close_normal.Visible = False
img_btn_close_hovered.Visible = True
End Sub
Sub img_btn_close_hovered_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'PURPOSE: Make close Button color like normal when mouse release
img_btn_close_pressed.Visible = False
img_btn_close_normal.Visible = True
img_btn_close_hovered.Visible = True

Unload Me
End Sub

'=================================================================
'
'         /close button
'
'=================================================================

Эти коды предназначены для кнопки закрытия в моей форме. Но если я хочу, чтобы этот эффект зависания имел место и для других кнопок (более десяти кнопок), есть ли способ сделать так, чтобы их не нужно было повторять несколько раз?