[سعود]

جواب السؤال الاخر على طريقتي

كود :

Public Class Form1
    Dim alist As New List(Of String)

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each h In TextBox1.Text
            If Not alist.Contains(h) Then
                alist.Add(h)
            End If
        Next
        TextBox1.Clear()
        For Each t In alist
            TextBox1.AppendText(t)
        Next
    End Sub
End Class