Any better way around Duplicate Definition problems?

[eoredson]

One way to send an array to a function would be:

Code: (Select All)

Dim Array(1 To 100) As Integer
For x = 1 To 100
  Array(x) = x
Next
z = DisplayArray(Array%())
If z Then Print "Correct."
End

Function DisplayArray (GetArray%())
  For z = 1 To 100
      Print GetArray%(z);
  Next
  DisplayArray = -1
End Function

Where you don't need to share anything or redim _preserve the array.