求助基础送分题，数组传递。

Question

在form1中
Public weizhi(2) As String
Public path(5) As String
Public high(5) As String
偶打算把上诉的数组传递到form2中，提示偶数组不允许作为对象模块中public的成员。以上数组存的是偶查询数据库得到结果或选择的结果。
With Adodc1.Recordset
        If .RecordCount > 0 Then
        path = .Fields(地址)
        high=.fields(高度)
        weizhi
End WithFor i = 0 To 2
   weizhi(i) = Option1(i).Caption
 Next i

Answer 1

工程——〉添加模块把这些代码移到模块中
Public weizhi(2) As String
Public path(5) As String
Public high(5) As String