Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles _
    TextBox1.TextChanged
    If TextBox1.Text.Length > 10 Then TextBox1.Text = _
    TextBox1.Text.Substring(0, 10)
  End Sub

___________________________________________________________________________________________
Jeder, der behauptet das gesamte .NET-Framework zu kennen ist entweder verrückt oder Sheldon Cooper