vb6如何多个过程共用一个数组！！！！！求助！！！

Question

各位大侠好。我手头有个数据库，已经可以通过一个command_Click()过程导入二维数组。
Data1.Recordset.MoveLast
row = Data1.Recordset.RecordCount - 1
Dim all(row, 13) As Double
Data1.Recordset.MoveFirst
For i = 0 To row
    all(i, 0) = Data1.Recordset.Fields("1")
    all(i, 1) = Data1.Recordset.Fields("2")
    all(i, 2) = Data1.Recordset.Fields("3")
    all(i, 3) = Data1.Recordset.Fields("4")
    all(i, 4) = Data1.Recordset.Fields("5")
    all(i, 5) = Data1.Recordset.Fields("6")
    all(i, 6) = Data1.Recordset.Fields("7")
    all(i, 7) = Data1.Recordset.Fields("8")
    all(i, 8) = Data1.Recordset.Fields("9")
    all(i, 9) = Data1.Recordset.Fields("10")
    all(i, 10) = Data1.Recordset.Fields("11")
    all(i, 11) = Data1.Recordset.Fields("12")
    all(i, 12) = Data1.Recordset.Fields("13")
    all(i, 13) = Data1.Recordset.Fields("14")
    Data1.Recordset.MoveNext
Next i我程序其他的过程要使用这个数组里的数据来做显示。可是我怎样才能在其他过程里使用这个数组呢？
本人纯新手，麻烦高手了，越详细越好 -_-b

Answer 1

Dim all(row, 13) As Double放在一个模块中定义
public all() As Double

Answer 2

我试了您的指点：
public all() as double里的()不让加，只能在sub command_click()里dim all (row,13) as double，还报错说row没有常数表达式。高手再帮帮我吧，谢谢了