Ver originalDim txt As Control If combo1.text="nombre xxxx" then For Each txt In frmClearMe If TypeOf txt Is TextBox Then txt.Text = "xxxx" Next End If