Create new Array of parameter type

I'm trying to create a function t开发者_开发问答o parse out all values in a multidimensional Array with all but one dimension given. The details are not relevant, but for this function I need to return an one-dimensional Array containing values of the same type the original multidimensional Array has.

To pass any Array with any dimension to my function, I declared the type of this parameter as Array. However, how would I create a new Array of that specific type (e.g. Integer)?

Currently I have the following code:

Function GetRow(ByVal arr As Array) As Array
    Dim result As (...) 'This should be Integer() if arr contains Integers, etc.
    Return result
End Function

How do I declare the type of result to make it having the same type of values as arr? New Array is not possible as it is declared MustInherit.

Use generics here so the function can handle any type:

Function GetRow(Of T)(ByVal arr() As T) As T()
    Dim result() As T
    ReDim result(arr.Length - 1)
    Array.Copy(arr, result, arr.Length)
    Return result
End Function

Sample usage:

    Dim iarr() As Integer = {1, 2, 3, 4}
    Dim copy = GetRow(iarr)