Class TextboxWithCarert
	Inherits TextBox
	Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As IntPtr) As Long
	Private Declare Function HideCaret Lib "user32" (ByVal hwnd As IntPtr) As Long
	Private _ShowCaret As Boolean = True
 
	Public Property ShowCarets() As Boolean
		Get
			Return _ShowCaret
		End Get
		Set(ByVal value As Boolean)
			_ShowCaret = value
		End Set
	End Property
	Public Overrides ReadOnly Property Focused() As Boolean
		Get
			Select Case _ShowCaret
				Case True
					ShowCaret(Me.Handle)
				Case False
					HideCaret(Me.Handle)
			End Select
			Return MyBase.Focused
		End Get
	End Property
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus