<System.Runtime.CompilerServices.Extension()> _
    Public Function Copy(Of T As ICloneable)(ByVal arr As T()) As T()
        Dim carr(UBound(arr, 1)) As T
        For i As Integer = 0 To arr.Length - 1
            If Not IsNothing(arr(i)) Then
                carr(i) = CType(arr(i).Clone, T)
            End If
        Next i
        Return carr
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov

Beitrag wurde zuletzt am 01.07.08 um 18:59:39 editiert.