codice:
   If TypeOf controllo Is TextBox Then
       DirectCast(controllo, TextBox).Attributes.Add("onMouseOver", "this.style.backgroundColor='#FFFFE0';")
       DirectCast(controllo, TextBox).Attributes.Add("onMouseOut", "this.style.backgroundColor='#FFFFFF';")

       DirectCast(controllo, TextBox).Attributes.Add("onFocus", "this.style.backgroundColor='#FFFFE0';")
       DirectCast(controllo, TextBox).Attributes.Add("onBlur", "this.style.backgroundColor='#FFFFFF';")
   End If