كيفية التحكم في رقم CommandButton

[أبو عبد الملك السوفي]

السلام عليكم

أود فكرة للتحكم في رقم الكموند بوتون مثلا

Private Sub CommandButton5_Click()

 Me.CommandButton5.BackColor = &HFF&
End Sub

المطلوب عند نسخ سطر تغيير اللون ولصقه في كود كموند آخر أن يتعرف على رقمه وحده دون أن أكتبه  وحدي

هكذا

Private Sub CommandButton6_Click()

 Me.CommandButton6.BackColor = &HFF&
End Sub

 

Private Sub CommandButton7_Click()

 Me.CommandButton7.BackColor = &HFF&
End Sub