[bidaya]

(05-02-18, 04:01 AM)طالب برمجة كتب :

PHP كود :

Dim list As New List(Of String)(TextBox1.Lines)
If list.Count > 0 Then
    TextBox2.Text = list(0)
    list.RemoveAt(0)
    TextBox1.Text = String.Join(vbCrLf, list)
Else
    TextBox2.Text = ""
End If 


الله يحفظك اخي الكود جد ممتاز
جزاك الله خيرا