[طالب برمجة]

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