[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