[مساعدة]

تفضل الكود

كود :

Dim str1 As String = TextBox1.Text
Dim arr1() As String = str1.Split(vbNewLine)

Dim arr2() As String = (From x In arr1 Select x Distinct).ToArray
Dim str2 As String = String.Join(vbNewLine, arr2)

TextBox2.Text = str2