Imports System.ComponentModel
 
Public Class ColorWhenSelectedTextBox
    Inherits TextBox
 
    Public Event SelectedForeGroundColorChanged(ByVal sender As Object, ByVal e _
      As EventArgs)
 
    Private _selectedForeGroundColor As Color = Color.Red
    Private _olddForeGroundColor As Color
 
    <Description("Foreground Color when selected"), _
    Category("Appearance")> _
    Public Property SelectedForeGroundColor() As Color
        Get
            Return _selectedForeGroundColor
        End Get
        Set(ByVal Value As Color)
            _selectedForeGroundColor = Value
            OnSelectedForeGroundColorChanged(New EventArgs)
        End Set
    End Property
 
    Protected Overrides Sub OnEnter(ByVal e As System.EventArgs)
        _olddForeGroundColor = Me.ForeColor
        Me.ForeColor = _selectedForeGroundColor
        Me.OnForeColorChanged(e)
    End Sub
 
    Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
        Me.ForeColor = _olddForeGroundColor
        Me.OnForeColorChanged(e)
    End Sub
 
    Protected Overridable Sub OnSelectedForeGroundColorChanged(ByVal e As _
      EventArgs)
        RaiseEvent SelectedForeGroundColorChanged(Me, e)
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist