Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim iYears() As Integer
        ReDim iYears(5)
 
        iYears(0) = 2010
        iYears(1) = 2011
        iYears(2) = 2012
        iYears(3) = 2013
        iYears(4) = 2014
        iYears(5) = 2015
 
        ReadOnlyByRefWouldBeNice()
    End Sub
 
    Private Function ReadOnlyByRefWouldBeNice(ReadOnly ByRef iYears() As _
      Integer)
        ' ...
    End Function