200分在线探求在过程或函数中的结构类型数组如何传递到另外的模块的问题？绝不食言！

Question

1.模块1（必须是标准模块，.BAS文件）
  定义公用类型和处理子程序。Public Type ZuoBiaotype
  X As Integer
  Y As Integer
End TypePublic Sub StartNewSearch(ZuoBiao() As ZuoBiaotype)
    Dim i   As Integer
    Dim j   As Integer
    For i = 1 To UBound(ZuoBiao, 1)
        For j = 1 To UBound(ZuoBiao, 2)
            ZuoBiao(i, j).X = i
            ZuoBiao(i, j).Y = j
        Next j
    Next i
End Sub-------------------------------------------------------------2.模块2(Form或.BAS均可)
  定义数组并调用处理子程序。Private mdlZuoBiao()  As ZuoBiaotypePrivate Sub Command1_Click()
    Dim i   As Integer
    Dim j   As Integer
    ReDim mdlZuoBiao(100, 100)
    Call StartNewSearch(mdlZuoBiao)
    For i = 1 To UBound(mdlZuoBiao, 1)
        For j = 1 To UBound(mdlZuoBiao, 2)
            Debug.Print i,j,mdlZuoBiao(i, j).X,mdlZuoBiao(i, j).Y
        Next j
    Next i
End Sub