Añadir funcionalidad a todos los textBox de un programa

[lokoman]

Hola!!
Pues se me ocurrió esto:
• Pones en la propiedad "TAG" de cada TextBox el valor "txt" (sin comillas)
• Agregas un Timer al Form, con su propiedad "INTERVAL" en 60 y agregas el codigo:

Código vb:

Private Sub Timer_Timer()
    For Each Control In Form1.Controls
        If Control.Tag = "txt" Then
            If Control.Text <> Empty Then
                Control.BackColor = &HC0FFC0
            Else
                Control.BackColor = &HFFFFFF
            End If
        End If
    Next
End Sub
 

Todos los TexBox que tengan la propiedad TAG=txt, obtendrán un color al momento que se DIGITE algo en ellos o si TIENEN algun valor, pero no ocurrirá con el GOTFOCUS