Public Sub ShortenArray(Of T)(ByRef Entries() As T, _
                       ByVal IndicesToRemove() As Integer, _
              Optional ByVal IgnoreDuplicateIndices As Boolean = True)
 
        Dim elist As New System.Collections.Generic.List(Of T)(Entries)
 
        Array.Sort(IndicesToRemove)
        If IndicesToRemove(0) < 0 Or _
           IndicesToRemove(IndicesToRemove.Length - 1) > Entries.Length - 1 Then
            Throw New IndexOutOfRangeException("Ungeeignete Indexliste")
        End If
 
        If IgnoreDuplicateIndices Then
            IndicesToRemove = _
            (From value As Integer In IndicesToRemove Distinct).ToArray
        End If
 
        For i As Integer = IndicesToRemove.Length - 1 To 0 Step -1
            If IndicesToRemove(i) < elist.Count Then
                elist.RemoveAt(IndicesToRemove(i))
            End If
        Next i
        Entries = elist.ToArray
    End Sub