Visual Basic

 Private Function DistinctArray(ByVal arr As ArrayList) As ArrayList<br />
        Dim x As New ArrayList<br />
        Dim myEnumerator As System.Collections.IEnumerator = _<br />
                   arr.GetEnumerator()<br />
        While myEnumerator.MoveNext()<br />
            If Not x.Contains(myEnumerator.Current) Then<br />
                x.Add(myEnumerator.Current)<br />
            End If<br />
            'Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)<br />
        End While<br />
        Return x<br />
End Function

Dim arr As New ArrayList<br />
      arr.Add("a")<br />
      arr.Add("b")<br />
      arr.Add("c")<br />
      arr.Add("d")<br />
      arr.Add("e")<br />
      arr.Add("a")<br />
      arr.Add("e")<br />
      arr.Add("a")<br />
      Dim strValues As String<br />
      Dim x As New ArrayList<br />
      x = DistinctArray(arr)<br />
      Dim myEnumerator As System.Collections.IEnumerator = x.GetEnumerator()<br />
      While myEnumerator.MoveNext()<br />
          strValues += myEnumerator.Current & ", "<br />
      End While<br />
      MsgBox(strValues)