问个VB.NET两个块之间的数据共享有关问题（初学者提问）

问个VB.NET两个块之间的数据共享问题（菜鸟提问）
       我在第一个Private Sub块里面定义了一个数组a（100），根据运算得到了a(0)~a(n)（n的值不确定）的值，在另外一个Private Sub块里面要用到前面得到的a(0)~a(n)的值（其他块也有可能用到）。
       怎样定义这个数组或者办法才能完成上述的操作？各位大神帮帮小弟吧，我在这里先行谢过了！！！！
------解决方案--------------------

这有何难啊，将a(100)定义移出Sub块到Class块内就是了。如下例所示：

Public Class Form1
    Private a(100) As Integer
    Private Sub ArraryInit()
        Dim n As Integer = 50
        ReDim Preserve a(n)
        For index As Integer = 0 To n
            a(index) = index
        Next
    End Sub
    Private Sub ArrayUse()
        Debug.Print(a.Max())
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ArraryInit()
        ArrayUse()
    End Sub
End Class

------解决方案--------------------
n的值不确定
你可能还需要一个参数。然后按2楼。