[mohamed haroon]

لقد وجدت هذا الكود

كود :

Dim myList As List(Of String) = RichTextBox1.Lines.ToList()
       If myList.Count > 5 Then
           myList.RemoveAt(0)
           RichTextBox1.Lines = myList.ToArray()
           RichTextBox1.Refresh()