' Visual Basic 2008 9.0 .NET Examples - Returning Arrays - Procedures and Functions : 
Module Example
    Sub Main()
        Dim values As Integer()
        PrintArray(values)
        '
        values = GetIntegerArray(10)
        PrintArray(values)
        '
        Console.ReadLine()
    End Sub
    Sub PrintArray(ByVal values As Array)
        If values IsNot Nothing Then
            For Each element As Object In values
                Console.Write(element & " ")
            Next
            Console.WriteLine()
        Else
            Console.WriteLine("No array.")
        End If
    End Sub
    Function GetIntegerArray(ByVal capacity As Integer) As Integer()
        Dim integerArray(capacity - 1) As Integer
        GetIntegerArray = integerArray
    End Function
End Module

' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.