[اليوم السابع]

(02-08-19, 03:12 AM)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 


الله ينور هو ده المطلوب بالظبط