All pastes #506691 Raw Edit

Something

public text v1 · immutable
·published 2007-05-24 03:48 UTC
rendered paste body
'' Okay, say you wanted to write a sub to resize an array...

Dim blahArray(1 to 20) as Integer
increaseArray( blahArray )

'' BlahArray will now be 1 to 21 (well, it should be)

Private Sub increaseArray( ByRef myarray() as Integer )
  ReDim Preserve myarray( UBound(myarray) + 1 )
End Sub