[asemshahen5]

عدله ليكون هكذا :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim kk As String = ""
        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