Cambiare il colore di sfondo delle textbox

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

Public Class MyTextBox
    Inherits TextBox

    Private _ofc As Color = Color.LightBlue '//valore di default
    Private _nfc As Color = Color.White  '//valore di default

    Public Property OnFocusColor() As Color
        Get
            Return _ofc
        End Get
        Set(ByVal value As Color)
            _ofc = value
        End Set
    End Property

    Public Property NoFocusColor() As Color
        Get
            Return _nfc
        End Get
        Set(ByVal value As Color)
            _nfc = value
        End Set
    End Property

    Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
        BackColor = _ofc
        MyBase.OnGotFocus(e)
    End Sub

    Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
        BackColor = _nfc
        MyBase.OnLostFocus(e)
    End Sub

End Class