Saludos:

Crea una funcion asi:



Public Sub Fl_Cambiar(ByVal TBox1 As TextBox, ByVal TBox2 As TextBox)
If TBox1.backcolor=color.blue and TBox2.backcolor=color.blue Then
MsgBox("Cambiar...