Kod:
Sub kontroller(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls
If ctl.Tag = "t" Then
ctl.BackColor = 255
End If
If ctl.Tag = "e" Then
ctl.BackColor = 16776960
End If
Next ctl
End Sub
kontroller me
göreceksinki etiketler başka renk textboxlar başka renk alacak
şayet bunu active olan denetime çevirecek olursak sadece içine girdiğimiz denetimin rengi değişir