Contact: aviboots(AT)netvision.net.il
39,900 questions
51,831 answers
573 users
Module Module1 Sub Main() Dim arr() As Integer = {1, 2, 3, 2, 5, 6, 6, 2, 1, 8} arr = arr.Distinct().ToArray() For i As Integer = 0 To arr.Length - 1 Console.Write("{0,3}", arr(i)) Next End Sub End Module 'run: ' ' 1 2 3 5 6 8