''' <summary>einen Bereich von Elementen aus einem Quellarray in ein 
' Zielarray kopieren</summary>
''' <typeparam name="T">Datentyp der Arrayelemente</typeparam>
''' <param name="SourceArray">Array, dessen Elemente kopiert werden</param>
''' <param name="DestinationArray">Array, in das Elemente kopiert werden</param>
''' <param name="SourceArrayStartIndex">Startindex des zu kopierenden 
' Bereichs</param>
''' <param name="ElementsToCopy">Anzahl der zu kopierenden Elemente ( 
' negativ: bis Arrayende)</param>
''' <param name="DestinationArrayStartIndex">Startindex ab dem kopierte 
' Elemente eingetragen werden</param>
''' <param name="AdjustDestinationArray">Zielarray bei Bedarf anlegen oder 
' verlängern?</param>
''' <returns>Alle Parameter OK?</returns>
Public Function CopyArrayElements(Of T) _
                           (ByVal SourceArray As T(), ByRef DestinationArray As _
                           T(), _
                            Optional ByVal SourceArrayStartIndex As Integer = _
                            0, _
                            Optional ByVal ElementsToCopy As Integer = -1, _
                            Optional ByVal DestinationArrayStartIndex As _
                            Integer = 0, _
                            Optional ByVal AdjustDestinationArray As Boolean = _
                            False) As Boolean
 
        If SourceArray Is Nothing Then Return False
        If SourceArrayStartIndex < 0 Then Return False
        If ElementsToCopy = 0 Then Return False
        If ElementsToCopy < 0 Then ElementsToCopy = SourceArray.Length - _
          SourceArrayStartIndex
        If SourceArrayStartIndex + ElementsToCopy > SourceArray.Length Then _
        Return False
 
        If DestinationArray Is Nothing Then
            If Not AdjustDestinationArray Then
                Return False
            Else
                Array.Resize(DestinationArray, ElementsToCopy)
            End If
        End If
 
        If DestinationArrayStartIndex < 0 Then Return False
        If DestinationArrayStartIndex + ElementsToCopy > _
          DestinationArray.Length Then
            If AdjustDestinationArray Then
                Array.Resize(DestinationArray, DestinationArrayStartIndex + _
                  ElementsToCopy)
            Else
                Return False
            End If
        End If
 
        Array.Copy(SourceArray, SourceArrayStartIndex, _
                   DestinationArray, DestinationArrayStartIndex, ElementsToCopy)
 
        Return True
 
    End Function