' Visual Basic 2008 9.0 .NET Examples - Arrays as Arguments - Procedures and Functions : 
Module Example4
    Sub Main()
        Dim values As Integer() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
        Example1.PrintArray(values)
        '
        DoubleIntegerValues(values, 5)
        Example1.PrintArray(values)
        '
        ResizeIntegerArray(values, 20)
        Example1.PrintArray(values)
        '
        Console.ReadLine()
    End Sub
    Sub DoubleIntegerValues(ByVal values As Integer(), ByVal count As Integer)
        For index As Integer = 0 To count - 1
            values(index) *= 2
        Next
    End Sub
    Sub ResizeIntegerArray(ByRef values As Integer(), ByVal capacity As Integer)
        ReDim values(capacity - 1)
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.