'Textbox erstellen
     Dim tbo As New TextBox
     tbo.Parent = Me
     tbo.Left = 400
     tbo.Multiline = True
 
     'Text eintragen
     For i As Integer = 0 To 369
        tbo.AppendText("Zeile " & CStr(i + 1) & vbCrLf)
     Next i
 
     'Text-Zeilen in Liste übertragen
     Dim lines As New List(Of String)(tbo.Lines)
 
     'Teil der Liste der Zeilen von hinten löschen
     For i As Integer = 219 To 47 Step -1
         lines.RemoveAt(i)
     Next i
 
     'gekürzte Zeilenliste wieder in die Textbox eintragen
     tbo.Clear()
     tbo.Lines = lines.ToArray

 Dim start As Int32 = tbo.GetFirstCharIndexFromLine(150)
 tbo.Select(start, tbo.GetFirstCharIndexFromLine(197) - start)
 tbo.Text = tbo.SelectedText