Gifteki kod altta.
Private Sub CommandButton1_Click()
Dim x As Control
For Each x In Me.Controls
If x.Tag = "aa" Then x.BackColor = vbRed
If x.Tag = "bb" Then x.BackColor = vbGreen
Next
End Sub
Private Sub CommandButton1_Click()
Dim x As Control
For Each x In Me.Controls
If x.Tag = "aa" Then x.BackColor = vbRed
If x.Tag = "bb" Then x.BackColor = vbGreen
Next
End Sub