Public Class SelTextbox : Inherits TextBox
 
    Dim _markieren As Boolean = True
 
    Public Property markieren() As Boolean
        Get
            Return _markieren
        End Get
        Set(ByVal value As Boolean)
            _markieren = value
        End Set
    End Property
 
    Private Sub SelTextbox_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Click
        SelTextbox_GotFocus(sender, e)
    End Sub
 
    Private Sub SelTextbox_GotFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.GotFocus
        If _markieren = True Then
            Me.SelectionStart = 0
            Me.SelectionLength = Me.Text.Length
        End If
    End Sub
End Class

_______________
Meine HP: http://www.tenschman.de/