Hi

The easiest way is to move the cursor to the beginning of the desired
line. Next hold down the delete key until all characters have been
removed.

Hope this helps.
The Grand Master

I don't know about the [lines] property, but assuming that each
line in the RichTextBox has a carriageReturn/LineFeed combination
at the end of it, this should work.

Private Sub  RemoveLastLine()
 Dim myData() As String
 Dim crlfs() As String = {ControlChars.CrLf}
 Dim lines As String = myRichTextBox.Text
 'split it by crlf
 myData = lines.Split(crlfs, StringSplitOptions.None)
 're-join it without the last line
 Dim outputString As String = _
     String.Join(ControlChars.CrLf, myData, 0, myData.Length - 1)
 myRichTextBox.Text = outputString
End Sub

Robin S.
---------------------------------