[khaled12345]

(22-05-17, 08:36 AM)alma2ألف مليون شكر استاذي الحبيب تعمل تمام بارك الله فيك كتب :

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim arr() As String = RichTextBox1.Text.Split(vbLf)
       For Each s As String In arr
           ListBox1.Items.Add(s.Trim)
       Next
       RichTextBox1.Clear()
       RichTextBox1.Focus()
   End Sub