Dim intMaxLines As Integer = 5
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Dim tbx As TextBox = sender
        If e.KeyCode = Keys.Enter Then e.SuppressKeyPress = Not (tbx.Text.Split( _
          vbCrLf).Count <= intMaxLines - 1)
    End Sub

Gru?

BernyH

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

      ''' <summary>
      ''' liefert die Anzahl Zeilen einer Textbox
      ''' </summary>
      ''' <param name="Tbox"></param>
      ''' <returns></returns>
      ''' <remarks></remarks>
      Public Function LineCount(ByVal Tbox As TextBox) As Integer
 
         Dim i As Integer = Tbox.TextLength
         Return Tbox.GetLineFromCharIndex(i) + 1
      End Function

- peter