[ابراهيم ايبو]

السلام عليكم اخي الكريم

تفضل الكود كما يوجد في الريتش  سيكون في الليست بوكس

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       If RichTextBox1.Text <> Nothing Then
           Dim ListLine As New List(Of String)(RichTextBox1.Lines)
           For Each itm As String In ListLine
               ListBox1.Items.Add(itm)
           Next
       End If
   End Sub