Private Function DestinctArray(Of T)(ByVal arr() As T) As T()
      Dim tList As New List(Of T)
      For Each i As T In arr
         If Not tList.Contains(i) Then
            tList.Add(i)
         End If
      Next
      Return tList.ToArray
   End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control